Переделать программу, так чтобы программа выводила сумму чётных чисел. progarm n_2; var s, i: integer; a: array [1..10] of integer; begin s: =0; for i: =1 to 10 do a[i]: =random(50); for i: =1 to 10 do write (a[i],' '); for i: =1 to 10 do s: =s+a[i]; writeln('s=', s); end.

Ffgfgdcbgdf Ffgfgdcbgdf    2   31.08.2019 01:50    0

Ответы
maximkap007 maximkap007  10.08.2020 06:41
После последнего цикла for пишем
for i:=1 to 10 do
begin
if a[i] mod 2 = 0 then
s:=s+a[i];
end;
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика