Question

Язык Delphi срочно пожалуйста

Answer 1

Delphi не язык а среда программирования.

Язык в нём используется Pascal

const

 m=20;

var

 a:array[1..20] of integer;

 i,b:integer;

 

(* эта функция будет считать, сколько раз число встречается в массиве *)

 function getC(s: integer):integer;

 var

   j:integer;

 begin

   result:=0;

   for j:= 1 to m do

     if a[j]=s then inc(result);

 end;

 

begin

(* тут просто заполняем массив случайными числами с 0 до 9 *)  

 randomize;

 for i:= 1 to m do

   a[i]:= random(10);

 

 print(a);

 writeln();

 writeln('введите число b: ');

 readln(b);

 writeln(getc(b));

end.