Преобразовать массив, прибавив к четным числам первый элемент - Turbo Pascal

Формулировка задачи:

Дан целочисленный массив размера N. Преобразовать его, прибавив к четным1|нечетным2 числам первый3|последний4 элемент. Первый и последний элементы массива не изменять


textual

Код к задаче: «Преобразовать массив, прибавив к четным числам первый элемент - Turbo Pascal»

const n=10; var a:array[1..n] of integer;
i:integer;
begin
randomize;
 for i:=1 to n do begin
a[i]:=random(100); write(a[i]:7); end;
writeln('.....');
for i:=2 to n-1 do if a[i] mod 2=0 then then a[i]:=a[i]+a[1] else a[i]:=a[i]+a[n];
for i:=1 to n do write(a[i]:7);
readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 3.786 из 5

Источник