const n = 10; var a: array[1..n] of integer; i, x, count: integer; begin readln(x); for i := 1 to n do begin a[i] := random(100); write(a[i], ' '); if(a[i] = x) then inc(count); end; writeln; writeln('Число ', x, ' встречается в массиве ', count, ' раз'); end.
Answers & Comments
const n = 10;
var
a: array[1..n] of integer;
i, x, count: integer;
begin
readln(x);
for i := 1 to n do begin
a[i] := random(100);
write(a[i], ' ');
if(a[i] = x) then inc(count);
end;
writeln;
writeln('Число ', x, ' встречается в массиве ', count, ' раз');
end.