Паскаль, не пойму почему не работает нашёл в интернете, в информатике не разбираюсь ,но должно работать и прибавлять числа ,а он просто выводит два числа : 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.
в коде бред какой-то... исправил...
Объяснение:
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.