Не могу понять причину ошибки программы

@Ivan Govnov · Регистрация: 22.11.2017

Author24 — интернет-сервис помощи студентам

Здравствуйте!
Задание дано было такое:
Заполнить матрицу из 7 строк и 7 столбцов случайными числами в отрезке [10..90] и вывести ее на экран. Заполнить элементы, отмеченные серым фоном числами 99, и снова вывести полученную матрицу на экран
Т.е должно получаться:
12 33 44 99 23 34 23
12 33 99 99 99 12 42
43 99 99 99 99 99 43
99 99 99 99 99 99 99
43 99 99 99 99 99 43
12 33 99 99 99 12 42
12 33 44 99 23 34 23
(Фигура напоминает ромб. 99- закрашенные клетки, остальные числа - не закрашенные клетки)
Я написал программу, но вот только у меня не получается нижний правый угол. Помогите пожалуйста
Заранее спасибо!

Pascal

var a:array[1..7,1..7] of integer; i,j:integer;
begin
writeln('matrix: ');
for i := 1 to 7 do begin
for j := 1 to 7 do begin
a[i,j] := random(81)+10;
write(a[i,j]:3);
end;
writeln;
end;
writeln;
writeln('result: ');
for i := 1 to 7 do begin
for j := 1 to 7 do begin
if ((round(7/2)-i<j)and(i-round(7/2)<j)and(j-round(7/2)<i)and(round(7/2)-j<i)) then a[i,j] := 99;
write(a[i,j]:3);
end;
writeln;
end;
end.

@Puporev · 22.11.2017, 20:12

Pascal

const n=7;
var a:array[1..n,1..n] of integer; 
    k:integer;
begin
randomize;
writeln('matrix: ');
for var i := 1 to 7 do
 begin
  for var j := 1 to 7 do
   begin
    a[i,j] := 10+random(81);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln('result: ');
k:=n div 2+1;
for var i := 1 to n do
 begin
  for var j := 1 to n do
   begin
    if abs(i-k)+abs(j-k)<k then a[i,j]:=99;
    write(a[i,j]:3);
   end;
  writeln;
 end;
end.

@Ivan Govnov · 22.11.2017, 20:56 **[ТС]**

У меня Паскаль ругается

@Puporev · 22.11.2017, 21:06

Как ругается, что говорит?
У меня молчит.
У Вас точно Паскаль АВС.net? Может просто АВС?

Добавлено через 5 минут
Если простой АВС, то так.

Pascal

const n=7;
var a:array[1..n,1..n] of integer;
    i,j,k:integer;
begin
randomize;
writeln('matrix: ');
for i := 1 to 7 do
 begin
  for j := 1 to 7 do
   begin
    a[i,j] := 10+random(81);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln('result: ');
k:=n div 2+1;
for i := 1 to n do
 begin
  for j := 1 to n do
   begin
    if abs(i-k)+abs(j-k)<k then a[i,j]:=99;
    write(a[i,j]:3);
   end;
  writeln;
 end;
end.

@Ivan Govnov · 22.11.2017, 21:15 **[ТС]**

Скорее из-за того, что АBC. Специально скачал ABCNET и не ругается.
Спасибо вам большое, выручили!

Не могу понять причину ошибки программы

Решение

Решение

@Ivan Govnov 0 / 0 / 1 Регистрация: 22.11.2017 Сообщений: 54
	22.11.2017, 20:56 [ТС]	3
	У меня Паскаль ругается 0

@Ivan Govnov 0 / 0 / 1 Регистрация: 22.11.2017 Сообщений: 54
	22.11.2017, 21:15 [ТС]	5
	Скорее из-за того, что АBC. Специально скачал ABCNET и не ругается. Спасибо вам большое, выручили! 0