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