Составить программу на паскале: заполнить массив вм случайными числами из диапазона от 1 до 150. размерность массива 20.распечатать массив на экране в строку. найти сумму всех нечётных чисел массива. результат вывести на экран в отдельной строке.

215

326

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

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

Gafana

Информатика

4,5(39 оценок)

Const n=5; type mass=array[1..n] of integer; var i,p,s: integer; a: mass; begin p: =1; s: =0; for i: =1 to n do read (a[i]); for i: =1 to n do if (a[i] mod 3)=0 and (a[i]mod 2)< > 0 then begin s: =s+a[i]; p: =p*a[i]; end; writeln('summ= ', s); writeln('proizvedinie= ', p); end.