Массив из целых чисел от 1 до 100. Выяснить количество чисел кратных 5
Pascal

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

program CountMultiplesOfFive;

var
arr: array[1..100] of integer;
count: integer;
i: integer;

begin
count := 0;

// инициализируем массив
for i := 1 to 100 do
begin
arr[i] := i;
end;

// считаем количество чисел кратных 5
for i := 1 to 100 do
begin
if arr[i] mod 5 = 0 then
begin
count := count + 1;
end;
end;

writeln('Количество чисел кратных 5: ', count);
end.