АС
Александр Соколов
объясните каждую строчку)) ) спасибо заранее
const n=10;
var max,min,maxi:real;
matrix:array[1..n]of real;
i,j:word;
begin
randomize;
for i:=1 to n do
begin
matrix:=random(10)+random(10)/10;
write(' ',matrix:2:2);
end;
writeln;
min:=matrix[1];
max:=matrix[1];
for i:=1 to n do
begin
if matrix>max then max:=matrix;
if matrix
begin
for i:=1 to n do
if (matrix>min) and (matrix
writeln(' ',maxi:2:2);
end else writeln('no elements in (min,max/2)');
readln;