Суть программы: если значение элемента массива четное, то прибавить к нему первый элемент. Первый и последний элементы не изменять.
program laba4v2;
const
n=10;
var
a: array [1..n] of integer;
i: integer;
begin
randomize;
for i:=1 to n do
begin
a:=random(10);
write(a,);
end;
for i:=2 to n-1 do;
begin
if a mod 2=0 then
begin
a:=a+5;
end;
end;
writeln;
for i:=1 to n do
begin
write(a,);
end;
end.
Что выдает программа:
3 9 4 9 3 4 4 3 8 9
3 9 4 9 3 4 4 3 13 9
program laba4v2;
const
n=10;
var
a: array [1..n] of integer;
i: integer;
begin
randomize;
for i:=1 to n do
begin
a:=random(10);
write(a,);
end;
for i:=2 to n-1 do;
begin
if a mod 2=0 then
begin
a:=a+5;
end;
end;
writeln;
for i:=1 to n do
begin
write(a,);
end;
end.
Что выдает программа:
3 9 4 9 3 4 4 3 8 9
3 9 4 9 3 4 4 3 13 9