Pascal заполнить массив20 элементов случайными числами от 0 до 10. подсчитать сколько раз встречается число 5 в массиве a.

Uses crt; const n=20; var a: array[1..n] of integer; i,k: integer; begin randomize; k: =0; for i: =1 to n do begin a[i]: =random(10); writeln(a[i]); if a[i]=5 then inc(k); end; writeln; writeln(k); end.

const

  n = 30;

var

  a: array[1..n] of byte;

  i, count: integer;

begin

  randomize;

  for i : = 1 to n do

  begin

      a[i] : = random(51) + 150;

      writeln('рост претендета № ', i: 2, ' - ', a[i]);

  end;

  write('номера подходящих кандидатур: ');

  for i : = 1 to n do

      if a[i] > = 180 then

      begin

          inc(count);

          write(i, ' ');

      end;

  writeln;

  writeln('общее количество подходящих претендентов: ', count);

end.

 название:   информатика и икт, рабочие тетради 2-4 классы номер:   н.в. матвеева, е.н. челак, н.к. конопатова, л.п. панкратова, н.а. нурова год:   2010-2012 жанр:   рабочие тетради формат:   djvu страниц:   от 58 до 114 описание:   рабочие тетради для 2-4 классов (каждый класс в 2-х частях) входят в состав умк по информатике и икт для начальной школы (2-4). умк обеспечивают пропедевтическое обучение информатике, цель которого - сформировать представление учащихся об основных понятиях информатики на основе их личного опыта и знаний, полученных при изучении других школьных дисциплин, а также развить начальные навыки работы на персональном компьютере.