Дан одномерный массив a(n).найдите произведение - вопрос №8826047 от seventy333444 22.06.2022 17:25

Question

Информатика: Дан одномерный массив a(n).найдите произведение четных чисел этого массива.

seventy333444 · Answer

Var a:array[1..100]of integer;n,i:integer;begin readln(n);randomize; for i:=1 to n do begin a[i]:=random(100); write(a[i], ); end;  for i:=1 to n do begin if not(odd(a[i])) then S:=S+a[i];end;Writeln( Summa= ,S);end....