ummasha

У меня уже все получилось по-нормальному! Я прсто поставила другой Паскаль и разобралась с begin и end! Вот программа:

Program zadacha_7_7_1;
Var a:array[1..100,1..100] of integer;
i,j:integer;
BEGIN
For i:=1 to 7 do
begin
For j:=1 to 7 do
begin
a[i,j]:=1;
write(a[i,j]:4);
end;
writeln;
end;
END.

Все нормально!)))

ummasha

И еще я не очень понимала, что значат записи вроде
a[i,j]:=random(45)-22;
Но теперь наконец-то дошло.)))

Vladimir_S

Ну так, на всякий случай. Если в программе употребляется Random, то где-то в ее начале обязательно должна присутствовать запись Randomize; - это включение генератора случайных чисел. Далее возможны два случая:

1. Функция Random без аргумента. Запись
x:=Random;
означает, что вещественной (REAL) переменной х будет присвоено случайное ДРОБНОЕ значение из интервала 0 <= x < 1 .

2. С аргументом. Аргументом может быть ТОЛЬКО целое число (положительное или отрицательное, но не ноль!). Тогда запись
x:=Random(a);
означает, что х принимает ЦЕЛЫЕ значения в интервалах:
при a > 0 0 <= x < a ,
при a < 0 a < x <= 0 .

А теперь вернемся к Вашему примеру:
Random(45) выдает случайное ЦЕЛОЕ число от 0 до 44. Соответственно
(Random(45) - 22) - это целое число от -22 до 22.

ummasha

Спасибо огромное, Vladimir_S! От вас я узнала столько интересного и полезного! Вы действительно мне помогли!