Var a:array[1..3] of integer; i,max,min,n:integer; begin for i:=1 to 3 do begin readln(a[i]); {задаем 3 числа в массиве} if i=1 then begin min:=a[i]; max:=a[i]; end; {Присваем максимальному и минимальному елементу масива первое значение} if min>a[i] then min:=a[i]; {Находим минимальный елемент среди 3} if max<a[i] then max:=a[i]; {Находим максимальный елемент среди3} end; for i:=1 to 3 do if (a[i]<>max) and (a[i]<>min) then n:=a[i]; {Нахождение елемента между максимальным и минмальным} writeln(n); {Вывод} end.
Const n=10;m=7; var a:array[1..n,1..m]of integer; i,j,min,s,j_m:integer; begin for i:=1 to n do begin writeln; for j:=1 to m do begin a[i,j]:=random(20)-5; write(a[i,j]:4); end; end; writeln; {запишем в min чуть больше наибольшего значения суммы, которая может быть в любом столбце. Больше, чем 200 не будет, т.к. всего 10 строк, каждое значение исходя из заполнения матрицы не может быть больше, чем 15 } min:=200;j_m:=1; for j:=1 to m do begin s:=0; for i:=1 to n do s:=s+a[i,j]; if s<min then begin j_m:=j; min:=s; end; writeln('j :',j,' ',s); {выводится значение суммы в каждом столбце, необязательно, можно удалить} end; writeln('№ столбца с мин суммой ',j_m); for i:=1 to n do writeln(a[i,j_m]); {вывод нужного столбца} end.
i,max,min,n:integer;
begin
for i:=1 to 3 do
begin
readln(a[i]); {задаем 3 числа в массиве}
if i=1 then begin min:=a[i]; max:=a[i]; end; {Присваем максимальному и минимальному елементу масива первое значение}
if min>a[i] then min:=a[i]; {Находим минимальный елемент среди 3}
if max<a[i] then max:=a[i]; {Находим максимальный елемент среди3}
end;
for i:=1 to 3 do
if (a[i]<>max) and (a[i]<>min) then n:=a[i]; {Нахождение елемента между максимальным и минмальным}
writeln(n); {Вывод}
end.
n=10;m=7;
var
a:array[1..n,1..m]of integer;
i,j,min,s,j_m:integer;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
a[i,j]:=random(20)-5;
write(a[i,j]:4);
end;
end;
writeln;
{запишем в min чуть больше наибольшего значения суммы, которая может быть в любом столбце. Больше, чем 200 не будет, т.к. всего 10 строк, каждое значение исходя из заполнения матрицы не может быть больше, чем 15 }
min:=200;j_m:=1;
for j:=1 to m do
begin
s:=0;
for i:=1 to n do
s:=s+a[i,j];
if s<min then
begin
j_m:=j;
min:=s;
end;
writeln('j :',j,' ',s); {выводится значение суммы в каждом столбце, необязательно, можно удалить}
end;
writeln('№ столбца с мин суммой ',j_m);
for i:=1 to n do
writeln(a[i,j_m]); {вывод нужного столбца}
end.