Паскаль. написать программу, которая выводит - вопрос №5482123 от КириллSOS 18.10.2020 22:14

Question

Информатика: Паскаль. написать программу, которая выводит на экран количество чисел х в массиве. в массиве n элементов, числа целые. х задаётся.

КириллSOS · Answer

Var
a:array[1..1000] of longint;
i,k,n,s:integer;
begin
s:=0;
randomize;
readln(n);
for i:=1 to n do begin
  a[i]:=random(100);
write(a[i],' ');
end;
writeln;
  readln(k);
  for i:=1 to n do
  if a[i]=k then inc(s);
  write(s);
end.