напишите программу которая вычисляет сколько раз введенное с клавиатуры число встречается в массиве который нужно ввести с клавиатуры в строчку ( в pascal)
Ответы
Ответ дал:
0
program chislo;
var i,n,x,v : integer;
a : array [1..100] of integer;
begin
writeln('введите количество элементов n :');
readln(n);
writeln('введите массив');
for i:=1 to n do
read(a[i]);
writeln('введите число');
readln(x);
v:=0;
for i:=1 to n do
if (a[i] = x) then v:=v+1;
writeln('встречается ',v);
end.
var i,n,x,v : integer;
a : array [1..100] of integer;
begin
writeln('введите количество элементов n :');
readln(n);
writeln('введите массив');
for i:=1 to n do
read(a[i]);
writeln('введите число');
readln(x);
v:=0;
for i:=1 to n do
if (a[i] = x) then v:=v+1;
writeln('встречается ',v);
end.
Ответ дал:
0
Здравствуйте, спасибо за решение, но хотелось бы задать вопрос. Когда Вводим кол-во элементов n - то мы вводим допустим 10 и вылетает следующее Введите массив- пишу массив из 10 чисел и не чего больше не вылетает
Ответ дал:
0
Вводите числа по одному, нажимая энтер. Все работает)
Ответ дал:
0
ааа, извините, по одному
Похожие вопросы
2 года назад
2 года назад
9 лет назад
9 лет назад