Question

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

Answer 1

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.