Заполнить массив 10 случайными числами от 1 до 10. Проверить сколько чисел будет больше числа А (задается с клавиатуры.)

Ответы (1)

Ремик 18.02.2025 1

var
i,k,j :integer;
a :array [1..10] of integer;

Begin
randomize;
for i:= 1 to 10 do A[i]:=random(11);
for i:= 1 to 10 do write(A[i], ' '); {Вывод массива на экран (можно убрать, т.к в задаче это не требуется)}
write('Введите число А: ');
read(k);
for i:= 1 to 10 do
if A[i] > k then inc(j); {увеличивает j на 1}
writeln(j,' чисел большьше числа ', k);

End.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика: