Написать программу 1 – у пользователя запрашиваются 6 элементов массива целых чисел. 2 – на экран выводится все 6 элементов массива, каждый из них на 1 (единицу) больше введенного. пример: ввели a[1] = 4, a[2]= 7, … вывод на экран: a[1] = 5, a[2] = 8, …
var a: array [1..6] of integer;
i: byte;
begin
for i:=1 to 6 do begin
write('Введите элемент a[',i,']: ');
readln(a[i]);
end;
writeln('Исходный массив');
for i:=1 to 6 do begin
writeln('a[',i,'] = ',a[i]);
a[i]:=a[i]+1;
end;
writeln('Преобразованный массив');
for i:=1 to 6 do
writeln('a[',i,'] = ',a[i]);
end.