Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Создать одномерный массив, содержащий целые числа. Элементы массива вводятся с клавиатуры. Найти номера всех элементов больше 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 n<>1 then write(Чисел больше 5 нет);
End.