Водномерном массиве а(10) найти максимальный элемент, вывести его значение и индекс. заменить все элементы большие 1, но меньшие 4 значением максимального элемента. полученный массив вывести на экран.

124

422

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

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

proulechka

Информатика

4,8(13 оценок)

Const n = 10; var i, max: integer; a: array[1..n] of integer; begin max : = 1; writeln('массив до: '); for i : = 1 to n do begin a[i] : = random(10); write(a[i]: 3); if(a[i] > a[max]) then max : = i; end; writeln(#10, 'массив после: '); for i : = 1 to n do begin if(a[i] > 1) and (a[i] < 4) then a[i] : = a[max]; write(a[i]: 3); end; writeln(#10, 'максиммальный элемент: ', a[max], #10, 'его индекс: ', max); end.