Соствить программу Pascal ABC

Задание:

Найти сумму чисел от 50 до 100, кратных трём.

1

Ответы и объяснения

2013-12-24T21:43:59+04:00
Var 
a:array[1..10]of integer;
i,b:byte;
begin
for i:=1 to 10 do
a[i]:=50 + random(100);
b:=0;
for i:=1 to 10 do begin
if (a[i]mod 3=0) then
a[i]:=a[i]+b;
b:=a[i];
end;
writeln(b);
end.