Предмет: Информатика, автор: Caribou

Помогите, пожалуйста.
Программа Паскаль.
Найдите количество элементов кратных 5 в массиве из N чисел. N <= 5.

Ответы

Автор ответа: Mishka28
0
const nmax = 5;
var a:array [1..nmax] of integer;
      i,k:integer;
begin
  k:=0;
  randomize;
  for i:=1 to nmax do
    begin
      a[i]:=random(11)+10;
      write (a[i],' ');
      if a[i] mod 5 = 0 then inc(k);
    end;
  writeln;
  writeln ('Kol-vo: ',k);
end.
Похожие вопросы
Предмет: Геометрия, автор: filippovdanila508
Предмет: Биология, автор: ilyha3
Предмет: Алгебра, автор: lada45