Подсчитайте, сколько раз в массиве встречается число "1".

uses crt;
const n=10;
var a: array[1..n] of integer; 
      i,k: byte;
begin
 randomize;
 clrscr;
 writeln('исходный массив: ');
 for i:=1 to n do
  begin
   a[i]:=random(11)-5;
   write(a[i]:3);
   if a[i]=1 then inc(k);
  end;
 writeln;
 if k=0 then writeln('число "1" не встречается в данном массиве')
 else writeln('число "1" встречается ',k,' раз');
end.

uses crt; //подключение модуля для работы с экраном
const n=10; //кол-во элементов массива
var a: array[1..n] of integer; //объявление массива
      i,k: byte; //объявление переменных
begin //начало программы
 randomize;
 clrscr;
 writeln('исходный массив: ');
 for i:=1 to n do //пробегаем с первого до последнего элемента массива
  begin
//задаем и выводим массив на экран
   a[i]:=random(11)-5; 
   write(a[i]:3);
// если i'ый элемент массива =1 то прибавляем к счетчику 1
   if a[i]=1 then inc(k);
  end;
 writeln;
//проверка на наличие 1 в массиве
 if k=0 then writeln('число "1" не встречается в данном массиве')
 else 
//вывод результата на экран
writeln('число "1" встречается ',k,' раз');
end.