var a: Array[1..10, 1..10] of Real; n, m, i, j, i1, j1, i2, j2: Byte; min, max: Real;
begin Writeln('Введите кол-во строк и столбцов'); Read(n, m);Writeln; for i := 1 To n Do begin Writeln('Введите ', m, ' эл. ', i, '-й строки матрицы'); for j := 1 To m Do Read(a[i, j]) end; Writeln('Ваша матрица:'); for i := 1 To n Do begin for j := 1 To m Do Write(a[i, j]:7:2); Writeln end; for i := 1 To n Do begin min := a[i, 1];i1 := i;j1 := 1; for j := 1 To m Do if a[i, j] < min then begin min := a[i, j];i1 := i;j1 := j end; if i = 1 Then begin max := min;i2 := i1;j2 := j1 end Else if min > max Then begin max := min;i2 := i1;j2 := j1 end end; Writeln('Максимальным из минимумов строк является элемент ', max:6:2, ' с индексами [', i2, ',', j2, ']'); end.
1) const n=10; var a:array[1..n] of integer; i,min,s:integer; begin for i:=1 to n do begin a[i]:=random(81)+10; write(a[i]:4); end; writeln; min:=a[1]; for i:=1 to n do begin if a[i]<min then min:=a[i]; s:=s+a[i]; end; writeln('min = ',min); writeln('s = ',s); end.
Пример: 54 58 67 78 58 79 54 78 44 60 min = 44 s = 630
2) const n=9; m=6; var a:array[1..n,1..m] of integer; i,j:integer; begin for i:=1 to n do for j:=1 to m do a[i,j]:=i; for i:=1 to n do begin for j:=1 to m do write(a[i,j]); writeln; end; end.
a: Array[1..10, 1..10] of Real;
n, m, i, j, i1, j1, i2, j2: Byte;
min, max: Real;
begin
Writeln('Введите кол-во строк и столбцов');
Read(n, m);Writeln;
for i := 1 To n Do
begin
Writeln('Введите ', m, ' эл. ', i, '-й строки матрицы');
for j := 1 To m Do Read(a[i, j])
end;
Writeln('Ваша матрица:');
for i := 1 To n Do
begin
for j := 1 To m Do
Write(a[i, j]:7:2);
Writeln
end;
for i := 1 To n Do
begin
min := a[i, 1];i1 := i;j1 := 1;
for j := 1 To m Do
if a[i, j] < min then begin
min := a[i, j];i1 := i;j1 := j
end;
if i = 1 Then begin
max := min;i2 := i1;j2 := j1
end
Else if min > max Then begin
max := min;i2 := i1;j2 := j1
end
end;
Writeln('Максимальным из минимумов строк является элемент ', max:6:2, ' с индексами [', i2, ',', j2, ']');
end.