Program enot_peredelani; Var a: array[1..100] of integer; c,d:integer; begin d:=0; writeln('введите элемент массива'); for c:= 1 to 12 do begin readln(a[c]); if a[c] mod 3 = 0 then d:=a[c]+d; end; writeln('сумма чисел кратных 3 ==> ',d); end.
антагонист
Program enot; Var a: array[1..100] of integer; c,d:integer; begin d:=0; for c:= 1 to 12 do begin writeln('введите элемент массива'); readln(a[c]); if a[c] mod 3 = 0 then d:=a[c]+d; end; writeln('сумма чисел кратных 3 ==> ',d); end.
Answers & Comments
Verified answer
Program enot_peredelani;Var a: array[1..100] of integer;
c,d:integer;
begin
d:=0;
writeln('введите элемент массива');
for c:= 1 to 12 do
begin
readln(a[c]);
if a[c] mod 3 = 0 then
d:=a[c]+d;
end;
writeln('сумма чисел кратных 3 ==> ',d);
end.
Var a: array[1..100] of integer;
c,d:integer;
begin
d:=0;
for c:= 1 to 12 do begin
writeln('введите элемент массива');
readln(a[c]);
if a[c] mod 3 = 0 then d:=a[c]+d;
end;
writeln('сумма чисел кратных 3 ==> ',d);
end.