Question

Помогите с информатикой пожалуйста
Напишите программу,
прибавляющую ко всем
элементам массива по
единице. Выведите на
экран оба массива.

Answer 1

program znanija;

const N = 8;//Количство элементов массива, задаешь любое

//значение от 0 до бесконечности

var

i:integer;

arr: array[0..N]of integer;

begin

for i:=0 to N do

arr[i]:=random(100);

writeln(arr);

//прибавление едениц к каждому элементу

for i:=0 to N do

arr[i]:=arr[i]+1;

writeln(arr);

end.