Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет сумму чисел, кратных 3.

290

370

Посмотреть ответы 2

Ответы на вопрос:

MihailBobr

Информатика

4,7(14 оценок)

Текст программы на языке pascal: program p1; var a: array [1..40] of integer; var i,c: integer; begin c: =0; for i: =1 to 40 do begin a[i]: =random(20); write (a[i],' '); if (a[i] mod 3) = 0 then c: =c+a[i]; end; writeln; writeln (c); end.

291104

Информатика

4,6(68 оценок)

#include < iostream> using namespace std; int main() { double l = 0; int n = 0; cout < < "введите длину бревна" < < endl; cin > > l; cout < < "введите в скольких местах распилили бревно" < < endl; cin > > n; cout < < "средняя длина получившихся кусков: " < < l/(n+1) < < endl; return 0; }