Написать программу для нахождения суммы 7 чисел если они чётные

265

440

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

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

polinagupalo200

Информатика

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

program exec;

var a:array [1..7] of integer;

var i,sum:integer;

begin

sum:=0;

for i:=1 to 7 do begin

readln (a[i]);

if (a[i] mod 2=0) then sum:=sum+a[i];

end;

writeln (sum);

end.

eugenetroyan

Информатика

4,6(10 оценок)

program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,'-е случайное число: ',s: 4); end; beginwriteln('індексы элементов кратных 3: '); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ' ') end; end; end.