Преобразовать массив, прибавив к четным числам первый элемент - Turbo Pascal
Формулировка задачи:
Дан целочисленный массив размера N. Преобразовать его, прибавив к четным1|нечетным2 числам первый3|последний4 элемент. Первый и последний элементы массива не изменять
Решение задачи: «Преобразовать массив, прибавив к четным числам первый элемент»
textual
Листинг программы
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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д