• вывести элементы массива значения которых меньше их индекса.

    Помогите составить программу (Паскаль), оформить ответ!

Ответы 1

  • var  a: array[1..10] of integer;  i: integer;begin  Writeln('Массив ');  for i := 1 to 10 do  begin      a[i] := random(10);      write(a[i], ' ');  end;  Writeln;  writeln('Числа и их индекс (по условию)');  for i := 1 to 10 do    if i > a[i] then write('(', a[i], ' - ', i, ') ');end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years