2) заполнить массив а случайными целыми числами разных знаков. составить программу вывода на экран номеров элементов массива, равных максимальному.

100

320

Посмотреть ответы 2

Ответы на вопрос:

alamez69

Информатика

4,4(25 оценок)

Var mas: array[-1000..1000] of integer; i, max, n: integer; begin {ввод количества элементов массива} readln(n); {ввод массива и его вывод на экран} randomize; for i : = 1 to n do begin mas[i] : = 50 - random(100) - 1; write(mas[i]: 5); if (i mod 10 = 0) then writeln; end; {поиск максимума} max : = mas[1]; for i : = 2 to n do if (mas[i] > max) then max : = mas[i]; {нахождение номеров элементов массива} writeln; for i: =1 to n do if (mas[i] = max) then write(i,' '); end.