Паскаль
Составьте программу, которая заполняет одномерный массив двадцатью первыми натуральными числами, кратными 5 или 7. Полученный массив вывести на экран.

Предыдущий
вопрос Следующий
вопрос

program FillArray;

var
arr: array[1..20] of integer;
i, num, count: integer;

begin
count := 1;
num := 1;

while count <= 20 do
begin
if (num mod 5 = 0) or (num mod 7 = 0) then
begin
arr[count] := num;
count := count + 1;
end;
num := num + 1;
end;

writeln('Array of the first twenty natural numbers, multiples of 5 or 7:');
for i := 1 to 20 do
begin
write(arr[i], ' ');
end;

end.