Предмет: Информатика,
автор: b3rzerk1
помогите пожалуйста по иформатике
Приложения:

Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: razbekinzhugmailcom
Предмет: Геометрия,
автор: Аноним
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Информатика,
автор: fati2