Помогите с прогой. Паскаль.Ввести массив, ввести кол-во элементов в массиве ( не через рандом). Ввести число. Найти сколько элементов равны этому числу. (ввод массива и кол-ва эл. Через процедуры)
Var a:array [1..100] of integer;
k,i,n,x:integer;
begin
k:=0;
writeln(Введите количество элементов массива);
read(n);
writeln(Введите число);
read(x);
for i:=1 to n do begin
read(a[i]);
if a[i]=x then k:=k+1;
end;
writeln(Колиечество элементов равных числу ,x, = ,k);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
