Написать программу, которая вычисляет, сколько раз введенное с клавиатуры число встречается в линейном массиве из 10 случайных чисел. Pascal ABC

var  a:array[1..10] of integer;  b,i,k:integer;begin  Randomize;  Write('Введите количество элементов в массиве: ');  for i:=1 to 10 do  begin    a[i]:=Random(21)-10;    Write(a[i],' ')    end;  Writeln;  Write('Какое число искать? ');  Readln(b);  k:=0;  for i:=1 to 10 do    if a[i]=b then Inc(k);  Writeln('Число встречается ',k,' раз')end.

var  a:array[1..10] of integer;  b,i,k:integer;begin  Randomize;  Write('Введите количество элементов в массиве: ');  for i:=1 to 10 do  begin    a[i]:=Random(21)-10;    Write(a[i],' ')    end;  Writeln;  Write('Какое число искать? ');  Readln(b);  k:=0;  for i:=1 to 10 do    if a[i]=b then Inc(k);  Writeln('Число встречается ',k,' раз')end.Подробнее - на Znanija.com - https://znanija.com/task/29303328#readmore