var a:array [1..10] of integer;
i:integer;
begin
write('Массив ');
for i:=1 to 10 do
begin
a[i]:=11-i;
if i=10 then write('a[',i,'] = ',a[i])
else write('a[',i,'] = ',a[i],', ')
end;
writeln;
write('Массив ');
for i:=1 to 10 do
begin
a[i]:=a[i]+1;
if i=10 then write('a[',i,'] = ',a[i])
else write('a[',i,'] = ',a[i],', ')
end
end.
Объяснение:
Сначала формируешь массив по формуле указанной в пункте 1 и выводишь его на экран.
Затем изменяешь массив по формуле указанной в пункте 2 и выводишь его на экран.
