Создать массив из 25 целых случайных чисел в интервале [-50,50]. вывести на количество четных и сумму нечетных элементов массива

186

401

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

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

mssarycheva

Информатика

4,8(67 оценок)

Var i, chet, summa: integer; mass: array[0..24] of integer; begin for i: =0 to 24 do begin mass[i]: = random(-50,50); if (mass[i] mod 2 = 0) then begin chet+=1; writeln('элемент массива под номером ' + (i+1) + ' равен ' + mass[i] + ' и чётен.'); end else begin writeln('элемент массива под номером ' + (i+1) + ' равен ' + mass[i] + ' и нечётен.'); summa+=mass[i]; end; end; writeln('количество чётных членов массива: ', chet); write('сумма нечётных членов массива: ', summa); end.