Программа должна выглядеть вот так:
program simvol;
const
n=5;
var
A:array[1..n,1 ..n]of integer;
i, j:integer;
Begin;
for i:=1 to n do
begin
for j:=1 to n do
begin
(A[i,j]):=random(100);
write(A[i,j]:4);
end;
writeln;
end;
end.
Вы не объявили переменные i и j, так же допустили сиснтаксические ошибки.
(.. или ..) и (..или ..)Скобки означают о приоритете - какое выражение выполнять первым. В данном случае у нас 3 действия: 1,2 по порядку слева направо с операцией ИЛИ, а так же 3 с И.И - это коньюнкция (логическое умножение), оно верно только в том случае, если оба выражения являются истинными.ИЛИ - дизъюнкция (логическое сложение), оно верно, если хотя б одно выражение является истинным.Давайте решим Ваш пример:9999999 - это максимальное семизначное число, давайте подставим его в примере и приведём к нужному виду.Я выбрал "есть хотя бы одна четвёрка" И "нет восьмерок", в результате самое максимальное семизначное число, которое подойдёт к данному условию - 9999994
Я возможно не понял что тебе надо , перед котом пишешь
for i=1 to 6 do
Begin
код
end;
и убудет 6 одинаковых
Real - вещественный тип.
массив начинается от 0.
0..8 - 9 элементов
если все же от -11 то 20 элементов