Напишите программу, которая находит в массиве количество элементов, равных заданному значению Х .
Answers & Comments
redra1n
Program red; var a:array[1..100] of integer; b,c,i,n:integer; begin writeln('Vvedite 4islo'); readln(b); writeln('Vvedite razmer massiva'); readln(n); c:=0; for i:=1 to n do a[i]:=random(10); for i:=1 to n do if a[i]=b then c:=c+1; writeln(c); end.
Answers & Comments
var
a:array[1..100] of integer;
b,c,i,n:integer;
begin
writeln('Vvedite 4islo');
readln(b);
writeln('Vvedite razmer massiva');
readln(n);
c:=0;
for i:=1 to n do
a[i]:=random(10);
for i:=1 to n do
if a[i]=b then c:=c+1;
writeln(c);
end.