Ожидалось имя процедуры или функции

@Limon4ik_UrU · Регистрация: 04.05.2021

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

Не понимаю на что он жалуется. Не хочет элемент массива присваивать к переменной s.

Pascal

program rgz;
 
const
  n = 4;
 
var
  m1, m2: array[1..n, 1..n] of real;
  i, j: integer;
  s: real;
 
begin
  for i := 1 to n do 
    for j := 1 to n do
    begin
      write('A[', i, ' ', j, ']: ');
      readln(m1[i, j]);
    end;
  
  for i := 1 to n do 
    for j := 1 to n do
    begin
      s := 0;
      
      if i = 1 then
        s := s + m1(i + 1, j)
      else
      if i = n then
        s := s + m1(i - 1, j)
      else
        s := s + m1(i - 1, j) + m1(i + 1, j);
      
      if j = 1 then
        s := s + m1(i, j + 1)
      else
      if j = n then
        s := s + m1(i, j - 1)
      else
        s := s + m1(i, j + 1) + m1(i, j - 1);
      
      m2[i, j] := s;
    end;
  
  writeln('Сглаженная матрица');
  for i := 1 to n do
  begin
    for j := 1 to n do 
      write(m2[i, j]:3:2, ' ');
    writeln;
  end;
end.

@FranckEnshtein · 14.05.2021, 14:05

Так ведь обращение к элементу массива делается с помощью квадратных скобок, а не круглых

@FranckEnshtein 21 / 16 / 6 Регистрация: 09.05.2021 Сообщений: 37
	14.05.2021, 14:05	2
	Сообщение было отмечено Limon4ik_UrU как решение Решение Так ведь обращение к элементу массива делается с помощью квадратных скобок, а не круглых 1

Ожидалось имя процедуры или функции

Решение