Question

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

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 n<>1 then write('Чисел больше 5 нет');
End.