Регистрация
artemivanyk200
24.08.2021 08:06
Информатика
Есть ответ 👍

Аппаратные компаненты компютерных сетей

171
197
Посмотреть ответы 1

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

ржакаmaker
ржакаmaker
4,4(2 оценок)
Program massiv; var  mass = array [1..15] of integer; i, max, n_max: integer; begin {заполнение массива} for i: = 1 to 15 do mass[i] = (random(32)-15) * 3; max : = 0; n_max : = 0; {нахождение максимума, вывод на экран} for i: = 1 to 15 do begin if mass[i] > max then begin max : = mass[i]; n_max : = i; end; write(mass[i], ' '); end; writeln('индекс максимального: ', n_max); end.

Популярно: Информатика