Создать одномерный массив, содержащий целые числа. элементы массива вводятся с клавиатуры. найти номера всех элементов больше 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.
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.