Помогите с прогой. Паскаль.Ввести массив, ввести кол-во элементов в массиве ( не через рандом). Ввести число. Найти сколько элементов равны этому числу. (ввод массива и кол-ва эл. Через процедуры)
Ответы на вопрос
Ответил SanGreen74
0
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.
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.
Ответил AnnyM
0
У вас нет ввода самих элементов массива, но все равно спасибо)
Ответил SanGreen74
0
Добавить одну строку забыл, извините)
Новые вопросы