Ввести одномерный массив вещественных чисел A(N). Все элементы с четными индексами, предшествующие первому по порядку элементу, значение которого равно максимальному значению в массиве, умножить на 2 и записать в новый массив B.

Выдать на печать массивы A и B.

Uses CRT;

Const N = 10;

Var A: Array [1..N] Of Integer;

I,J,Max,MaxI : Integer;

Begin

ClrScr;

Randomize;

For I := 1 To N Do

Begin

A[I] := Random(100);

End;

For I := 1 To N Do

Begin

Write(A[I]:4);

End;

WriteLn;

Max := A[1];

MaxI:= 1;

For I := 2 To N Do

If Max < A[I] Then

Begin

Max := A[I];

MaxI:= I;

End;

WriteLn(Max, ' ', MaxI);

For I := 1 To N Do

If (I <= MaxI) And (I = Round(I/2)*2) Then

A[I] := A[I]*2;

For I := 1 To N Do

Begin

Write(A[I]:4);

End;

WriteLn;

End.