Задать вопрос Регистрация
Помочь другим

  • Заполнить массив 20 случайными числами (использовать генератор случайных чисел). Найти в массиве максимальный элемент и вывести на экран его значение и порядковый номер в массиве.

Ответы 1

  •  

      uses crt; var    arr:array[1..20] of integer;    max,q,maxq:integer; begin writeln ('ARRAY: '); for q:=1 to 20 do          begin          arr[q]:=random(80);          writeln (q:2,arr[q]:6);          end; max:=arr[1]; for q:=2 to 20 do     if arr[q]>max then        begin        max:=arr[q];        maxq:=q;        end; writeln; write('MAX = ',max,' (П. НОМЕР ',maxq,')'); end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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