Var a:array [1 ... 100,1 ... 100] of real;

b:array [1 ... 100,1 ... 100] of real;

i, m, n, c:integer;

begin

readln (n) ;

readln (c) ;

for i:=1 to n do

for m:=1 to c do readln (a[i, m]) ;

for i:=1 to n do

for m:=1 to c do

b[i, m]:=a[i, m]/8;

for i:=1 to n do

for m:=1 to c do writeln (b[i, m]) ;

end.

можете написать обозначение каждого символа

Описательная часть: все что находится в Var'e

var

a:array [1 ... 100,1 ... 100] of real; - описание двумерного масива

b:array [1 ... 100,1 ... 100] of real; - аналогично

i, m, n, c:integer; - описание переменных целого типа, тип это integer

i

begin - начало исполняемой части

readln (n) ; - считывает переменную целого типа, кол-во строк матрицы

readln (c) ; - аналогично, кол-во столбцов матрицы

for i:=1 to n do - цикл для строк

for m:=1 to c do - цикл для столбцов

readln (a[i, m]) ; - считывает и записывает в двумерный массив числа

for i:=1 to n do - цикл для строк

for m:=1 to c do - цикл для столбцов

b[i, m]:=a[i, m]/8; - это каждый элемент массива А делит на 8, и присваивает другому массиву

for i:=1 to n do - цикл для строк

for m:=1 to c do - цикл для столбцов

writeln (b[i, m]) ; - вывод второго масива

end. - конец исполняемой части

Var a, b:array [1 ... 100,1 ... 100] of real;

current_row, current_column, rows, columns:integer;

begin

readln (rows) ;

readln (columns) ;

for current_row : = 1 to rows do begin

writeln () ;

for current_column : = 1 to columns do begin

read (a[current_row, current_column]) ;

b[current_row, current_column] : = a [current_row, current_column] / 8;

end;

end;

for current_row : = 1 to rows do begin

writeln () ;

for current_column : = 1 to columns do

write (b[current_row, current_column]:4, ' ') ;

end;

end.