Мне нужен выполнить задание питання 1-5

Question

Информатика: Мне нужен выполнить задание питання 1-5​

tima242 · Accepted Answer

// PascalABC.Net 3.0, сборка 1088
const
n=6;
var
a:array[1..n] of integer;
i:integer;
begin
Randomize;
Writeln('*** Исходный массив ***');
for i:=1 to n do begin
    a[i]:=Random(1001);
    Write(a[i],' ');
end;
Writeln;
Writeln('*** Результат ***');
Write(a[1],' ');
for i:=2 to n-1 do begin
    if Odd(a[i]) then a[i]:=a[i]+a[n]
    else a[i]:=a[i]+a[1];
    Write(a[i],' ');
end;
Writeln(a[n])
end.

Тестовое решение:
*** Исходный массив ***
706 46 715 899 103 308
*** Результат ***
706 752 1023 1207 411 308

Мне нужен выполнить задание питання 1-5​

MOGZ ответил