Создать одномерный массив, содержащий целые числа. Элементы массива вводятся с клавиатуры. Найти номера всех элементов больше 5 (вывести их на экран), если таких нет, то сообщить об этом.

Question

Информатика

Аполлон

10 сентября, 02:00

Создать одномерный массив, содержащий целые числа. Элементы массива вводятся с клавиатуры. Найти номера всех элементов больше 5 (вывести их на экран), если таких нет, то сообщить об этом.

+1

Ответы (1)

Знаете ответ на вопрос?

Силуян · Answer 1

Var

a:array[1 ... 10] of integer;

i, n:integer;

Begin

for i:=1 to 10 do Begin

Write ('Введите ', i,'-ый элемент массива ') ;

Readln (a[i]) ;

end;

for i: = 1 to 10 do

if a[i]>5 then Begin write (i,' ') ; n: = 1; end;

if n1 then write ('Чисел больше 5 нет') ;

End.