Паскаль: массив состоит из 20 элементов.найти сумму нечётных элементов.найти сумму чётных элементов.надо сделать с использованием random.

LedyKoshka LedyKoshka    2   21.05.2019 09:30    0

Ответы
elvira2020 elvira2020  15.06.2020 10:37

const n=20;
var
a:array [1..n] of integer;
i,s,k:integer;
begin
s:=0;
k:=0;
Randomize;
for i:=1 to n do
begin
  a[i]:=random(50);
  write(a[i],' ');
end;
for i:=1 to n do if (a[i] mod 2 =0) then s:=s+a[i]
                                     else k:=k+a[i];
writeln;
writeln('Сумма четных элементов: ',s);
writeln('Сумма нечетных элементов: ',k);
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика