Найти максимальный из элементов, имеющих четный индекс. Пример: массив 7 2 6 5 4 4 10 3 9 элементы с четными индексами 2 5 4 3 максимальный из них 5. Паскаль АВС.
Найти максимальный из элементов, имеющих четный индекс. Пример: массив 7 2 6 5 4 4 10 3 9 элементы с четными индексами 2 5 4 3 максимальный из них 5. Паскаль АВС.
Гость
Ответ(ы) на вопрос:
Гостьconst
n = 15;
var
x: array[1..n] of integer;
i, max: integer;
begin
Randomize;
Write('Элементы массива: ');
for i := 1 to n do
begin
x[i] := Random(20);
Write(x[i]:3)
end;
max := x[2]; i := 4;
while i <= n do
begin
if max < x[i] then max := x[i];
i := i + 2
end;
Writeln;
Writeln('Max=', max)
end.
Тестовое решение:
Элементы массива: 17 12 18 12 11 14 18 19 16 16 9 13 7 3 13
Max=19
Не нашли ответ?
Похожие вопросы