Ответы
Ответ дал:
0
var
arr: array [1.. 50] of integer;
i : byte;
sum : integer;
begin
Randomize();
sum := 0;
for i := 1 to 50 do
begin
arr[i] := random(650, 750);
if arr[i] mod 4 = 0 then sum += arr[i];
end;
if sum <> 0 then
writeln(sum)
else
writeln('Таких чисел нет')end.
arr: array [1.. 50] of integer;
i : byte;
sum : integer;
begin
Randomize();
sum := 0;
for i := 1 to 50 do
begin
arr[i] := random(650, 750);
if arr[i] mod 4 = 0 then sum += arr[i];
end;
if sum <> 0 then
writeln(sum)
else
writeln('Таких чисел нет')end.
Вас заинтересует
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад
9 лет назад