Помогите, пожалуйста, написать программу по информатике

Помогите, пожалуйста, написать программу по информатике. Вот такое условие: Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет: 1). Сумму чисел, не превышающих 10; 2). Сумму чисел, кратных 3. Помогите пожалуйста, написать эту программу на PaskalABC.

в избранное

alexey170809

17 августа 2022

В общем виде так (выводит вектор случайных чисел, сумму чисел<10 и сумму чисел кратных 3): program test; vararr: array[1… 40] of integer; i,sum1,sum2: integer; beginfor i: =1 to 40 dobegin arr[i]: =random (21); write (arr[i],'); if arr[i] <= 10 then sum1: =sum1+arr[i]; if (arr[i] mod 3)=0 then sum2: =sum2+arr[i]; end; writeln; writeln (sum1); writeln (sum2); readln; end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?