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

Цикл с параметром.Pascale.Нужно написать программу.
Определить количество чисел, кратных 5, среди N чисел, заданных случайным образом в диапозоне от -50 до 50. 

Ответы

Автор ответа: Mishka28
0
const nmax = 30;
var a:array [1..nmax] of integer;
      i,k,n:integer;
begin
  randomize;
  k:=0;
  repeat
    write ('N = ');
    readln (n);
  until n in [1..nmax];
  for i:=1 to n do
    begin
      a[i]:=random(101)-50;
      writeln (a[i]);
      if a[i] mod 5 = 0 then inc(k);
    end;
  writeln ('Kol-vo: ',k);
end.
Похожие вопросы
Предмет: Українська мова, автор: markpalii8228
2 Перед виділеним сполучником треба поставити кому в реченні (розділові знаки

пропущено) Запишіть обране речення

А Тільки невсипуще море вирує десь здалеку та зорі тремтять в нічній

прохолоді.

Б Здавалось вітер тут чорний і дощ ллється з неба чорний як смола.

В Довкола будинку цвів бузок і на білі стіни падала тінь від листя.

Г Який простір і як легко дихати під високим небом Кавказу!


3 Кому пропущено в реченні. Запишіть у виправленому вигляді

А Думаю про те, хто вмикає зорі й хто їх вимикає.

Б Люди носять із собою ліхтарі , щоб краще бачити.

В Якщо не знаєш, що робити роби хоч те, що можеш.

Г Якщо ви хочете збирати мед, не перекидайте вулика.


4 Після речення Пес заспокоївся... треба поставити двокрапку, якщо серед варіантів

його продовження вибрати Запишіть утворене речення

А ...птахи заспівали, сонце сіло. Б ...кіт, навпаки, став на диби.

В ...почувши запах господаря. Г... нарешті його нагодували.