Question

Паскаль, не пойму почему не работает нашёл в интернете, в информатике не разбираюсь ,но должно работать и прибавлять числа ,а он просто выводит два числа :

program protect8;

const N = 8;

var

i:integer;

integer: array[0..8]of integer;

begin

for i:=0 to 8 do

arr[i]:=random(1000);

writeln(8);

for i:=0 to 8 do

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

writeln(10);

end.

Answer 1

Ответ:

в коде бред какой-то... исправил...

Объяснение:

program protect8;

const N = 8;

var

 i:integer;

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

begin

for i := 0 to N do

begin

 arr[i] := random(1000);

 write(arr[i], ', ');

end;

writeln;

for i := 0 to N do

begin

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

 write(arr[i], ', ');

end;

end.