Найти максимальный элемент одномерного массива случайных целых чисел от -10 до 10. Вывести на экран все значения, равные максимальному и их индексы.
Решение:
|
1
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
program arrays_6;
uses crt; const n=20; var i, key, max: integer; mas: array[1..n] of integer; begin clrscr; randomize; writeln(‘Список:’); for i:=1 to n do begin mas[i]:=random(20)—10; write(‘ ‘,mas[i]); end; key:=1; for i:=2 to n do begin if mas[i]>mas[key] then key:=i; max:=mas[key]; end; writeln; writeln(‘Элемент Индекс’); for i:=1 to n do begin if mas[i]=max then writeln(mas[i]:4, i:12); end; readkey; end. |