Составьте программу которая запрашивает значения элементов одномерного числового массива а, стоящего из 10 элементов,формирует и выводит на экран в строку данный массив. найти сумму неположительных элементов массива,количество элементов кратных 3, произведение элементов,стоящих на четных местах

243

497

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

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

Tina2802

Информатика

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

program z1; uses crt; var m: array[1..10] of integer; i,a,b,c: integer; beginfor i: =1 to 10 doreadln(m[i]); writeln; a: =0; b: =0; c: =1; for i: =1 to 10 do begin if m[i]< =0 then a: =a+m[i]; if m[i] mod 3 = 0 then b: =b+1; if i mod 2 = 0 then c: =c*m[i]; end; writeln(сумма отриц'',a); writeln(кратные 3'',b); writeln(произв'',c)end.