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

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.