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...
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.
НЕ МОГУ НАЙТИ ОШИБКУ ПОМОГИТЕ!!!!!!!!!!!!!!!!!!!!!!!
Гость
Ответ(ы) на вопрос:
ГостьМожно попробовать сделать так:
Добавь новую строку, она будет первой: const n=10;
И точку в конце.
Не нашли ответ?
Похожие вопросы