Ответ: Здравствуйте, можете пожалуйста помочь с https://znanija.com/task/29114100 ?
Ответ: var a: array[1..20] of Integer;i,n,sum: Integer;beginfor i:=1 to 20 dobeginn:=random(25);a[i]:=n;writeln(i,’ число: ‘,n);end;for i:=1 to 20 dobeginif a[i] mod 2=0 then Inc(sum,a[i]);end;writeln(sum);end.
Ответ:
program massiv7;
const N=10;
type x=array [1..20] of integer;
var a:x;
i:integer;
k:integer;
begin
randomize;
for i:=1 to 20 do
begin
a[i]:= +10+random (91);
write (A[i]:5)
end;
writeln;
k:=0;
for i:=1 to 20 do
if a[i] mod 2=0 then
begin
k:=k+1
end;
writeln (‘Количество четных элементов =’ ,k:5);
readln
end.