var a:array[1..11] of longint;
var i,x:longint;
begin
for i:=1 to 11 do
a[i]:=random(10)-11;
if a[i] mod 4=0 then x+=a[i]
end;
write(x)
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a:array[1..11] of longint;
var i,x:longint;
begin
for i:=1 to 11 do
begin
a[i]:=random(10)-11;
if a[i] mod 4=0 then x+=a[i]
end;
write(x)
end.