23 задание
program egsf;
var
A: array [1..3,1..7] of integer;
T:real;
Amax,Amin:real;
i,j:integer;
Begin
Write('T=');
Read(T);
For j:=1 to 7 do
for i:=1 to 3 do
begin
write('A[',i,',',j,']');
Read(A[i,j]);
end;
j:=1;
Amax:=0;
Amin:=0;
while (7>j) or (T>Amax-Amin) do
begin
begin
if (A[1,j]
Amin:=A[1,j];
if (A[2,j]
Amin:=A[2,j];
if (A[3,j]
Amin:=A[3,j];
if (A[1,j]>A[2,j]) and (A[1,j]>A[3,j]) then
Amax:=A[1,j];
if (A[2,j]>A[1,j]) and (A[2,j]>A[3,j]) then
Amax:=A[2,j];
if (A[3,j]>A[2,j]) and (A[3,j]>A[1,j]) then
Amax:=A[3,j];
end;
write( 'Amax-Amin=',Amax-Amin);
j:=j+1;
end;
end.
Может кто подсказать где ошибка?
![](https://st.uroker.com/files/6e6/6e626ef635457dc52684f0f66e2b3f11.jpg)
Ответы
Твоя исправленная программа:
program egsf;
var A: array [1..3,1..7] of integer;
T:real;
Amax,Amin:real;
i,j:integer;
begin
Write('T=');
Read(T);
For j:=1 to 7 do
for i:=1 to 3 do
begin
write('A[',i,',',j,']');
Read(A[i,j]);
end;
writeln;// Добавлен вывод массива
for i:= 1 to 3 do
begin
for j:=1 to 7 do
write(a[i,j]:4);
writeln
end;
writeln;
j:=1;
Amax:=0;
Amin:=0;
while (7>=j) and (T>=Amax-Amin) do
begin
Amax:=0;
Amin:=0;
if (A[1,j]<A[2,j]) and (A[1,j]<A[3,j]) then Amin:=A[1,j];
if (A[2,j]<A[1,j]) and (A[2,j]<A[3,j]) then Amin:=A[2,j];
if (A[3,j]<A[2,j]) and (A[3,j]<A[1,j]) then Amin:=A[3,j];
if (A[1,j]>A[2,j]) and (A[1,j]>A[3,j]) then Amax:=A[1,j];
if (A[2,j]>A[1,j]) and (A[2,j]>A[3,j]) then Amax:=A[2,j];
if (A[3,j]>A[2,j]) and (A[3,j]>A[1,j]) then Amax:=A[3,j];
writeln( 'Amax-Amin=',Amax-Amin);
j:=j+1;
end;
end.
Будет работать для любой матрицы:
const n=3;m=7;
var a:array [1..n,1..m] of integer;//массив из целых чисел
i,j,max,min,t:integer;//если массив из целых чисел, то max и min и их разность будут целыми числами; t тоже возьмём целое
begin
write('t = ');
readln(t);
writeln;
for i:= 1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=Random(9)+1;//массив задаётся автоматически
write(a[i,j]:3)
end;
writeln
end;
writeln;
for j:= 1 to m do
begin
max:=a[1,j];//за max элемент берётся первый элемент в столбце
min:=a[1,j];//за min элемент берётся первый элемент в столбце
for i:=1 to n do
begin
if a[i,j]>max then max:=a[i,j];//ищем max элемент в столбце
if a[i,j]<min then min:=a[i,j]//ищем min элемент в столбце
end;
if max-min>t then break;//прерываем цикл при нарушении условия
write (max-min:3)
end
end.
или (если проблемы с break)
const n=3;m=7;
var a:array [1..n,1..m] of integer;//массив из целых чисел
i,j,max,min,t:integer;//если массив из целых чисел, то max и min и их разность будут целыми числами; t тоже возьмём целое
begin
write('t = ');
readln(t);
writeln;
for i:= 1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=Random(9)+1;//массив задаётся автоматически
write(a[i,j]:3);
end;
writeln
end;
writeln;
j:= 1;
max:=a[1,j];//за max элемент берётся первый элемент в столбце
min:=a[1,j];//за min элемент берётся первый элемент в столбце
while (j<=m) and (max-min<=t) do
begin
max:=a[1,j];//за max элемент берётся первый элемент в столбце (сбрасываем предыдущие значения)
min:=a[1,j];//за min элемент берётся первый элемент в столбце (сбрасываем предыдущие значения)
for i:=1 to n do
begin
if a[i,j]>max then max:=a[i,j];;//ищем max элемент в столбце
if a[i,j]<min then min:=a[i,j]//ищем min элемент в столбце
end;
if max-min<=t then write (max-min:3);//не печатаем разность превышающую заданную t
j:=j+1
end
end.