СРОЧНО!!!! ПОМОГИТЕ ПОЖАЛУЙСТА!!
Дан одномерный массив из 6 элементов. Если очередной элемент массива четный, то прибавить к нему первый элемент, если нечетный – то прибавить последний элемент массива. Первый и последний элементы не изменять.
// 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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
