Вот этих скобок нету на клавиатуре.
Видимо имеется ввиду выводящий максимальны элемент этого массива
В данном примере матрица формируется при помощи случайных чисел
program MatrixMax;
Uses Crt;
type matrix=array[1..4,1..4] of real;
var m:matrix;
max:real;
{Порождение матрицы случайным образом}
procedure Auto;
var i,j:integer;
begin
randomize;
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
m[i,j]:=25+random(21);
end;
end;
end;
{Вывод матрицы на экран}
procedure PrintMatrix(mas:matrix );
var j,k:integer;
begin
for k:=1 to 4 do
begin
for j:=1 to 4 do
begin
write(mas[k,j]:7:2);
end;
writeln;
end;
end;
{Нахождение максимального элемента}
procedure Мax;
var i,j:integer;
begin
max:=m[1,1]
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
if (max<m[i,j]) then max:=m[i,j];
end;
end;
end;
begin
Clrscr;
Auto;
PrintMatrix;
Max;
writeln;
writeln('Максимальный элемент матрицы: ',max);
end.
Ответ:
000, посмотри в интернете объяснение таких заданий, это же прототип егэ, причём легкий.
Var
r,y:real;
begin
readln(r);
if (r>=-7)and(r<=-3)then
y:=r+7;
if (r>=-3)and(r<=-2)then
y:=4;
if (r>=-2)and(r<=2)then
y:=sqr(r);
if (r>=2)and(r<=4)then
y:=-2*r+8;
writeln(y);
if (r<-7)or(r>4)then
writeln('Введите значение в диапазоне [-7;4]');
end.