Создать одномерный массив, содержащий целые числа. Элементы массива вводятся с...

Question

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

Answer 1

Const
  N = 5;

var
  a: array [1..N] of integer;
  flag: boolean;

begin
  flag := False;
  for var i := 1 to N do
  begin
    readln(a[i]);
    if a[i] > 5 then begin
      writeln(a[i], i:3);
      flag := True;
    end;
  end;
  if not flag then writeln('Элементов больше 5 нет');
end.