Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / EX1
.PAS program ex1;
{‡ ¤ ¬ ваЁж D[3,3]
ЋЇаҐ¤Ґ«Ёвм ¬ ЄбЁ¬ «мл© н«Ґ¬Ґв в®Ј® бв®«Ўж , ў Є®в®а®¬ 室Ёвбп
¬ЁЁ¬ «мл© н«Ґ¬Ґв ўбҐ© ¬ ваЁжл
Ќ ЇҐз в вм Ёб室го ¬ ваЁжг Ё ¬ ЄбЁ¬ «мл© н«Ґ¬Ґв}
var i,j,mi,ma,nc: integer;
var m: array[1..3,1..3] of integer;
begin
writeln('‚ўҐ¤ЁвҐ Ёб室го ¬ ваЁжг');
for i:=1 to 3 do
for j:=1 to 3 do read(m[i,j]);
{ђ бЇҐз вЄ ¬ ваЁжл}
writeln('€б室 п ¬ ваЁж ');
for i:=1 to 3 do
begin
for j:=1 to 3 do write(m[i,j]:4);
writeln
end;
{Ќ ©вЁ ®¬Ґа бв®«Ўж (nc), ў Є®в®а®¬ 室Ёвбп ¬ЁЁ¬ «мл© н«Ґ¬Ґв ¬ ваЁжл}
mi:=m[1,1]; nc:=1;
for i:=1 to 3 do
for j:=1 to 3 do
if m[i,j] < mi then
begin
mi:=m[i,j];
nc:=j
end;
{Ќ ©вЁ ¬ ебЁ¬ «мл© н«Ґ¬Ґв ў бв®«ЎжҐ nc}
ma:=m[1,nc];
for i:=1 to 3 do
if m[i,nc] > ma then ma:=m[i,nc];
writeln('Њ ЄбЁ¬ «мл© н«Ґ¬Ґв ',ma)
end.
{‡ ¤ ¬ ваЁж D[3,3]
ЋЇаҐ¤Ґ«Ёвм ¬ ЄбЁ¬ «мл© н«Ґ¬Ґв в®Ј® бв®«Ўж , ў Є®в®а®¬ 室Ёвбп
¬ЁЁ¬ «мл© н«Ґ¬Ґв ўбҐ© ¬ ваЁжл
Ќ ЇҐз в вм Ёб室го ¬ ваЁжг Ё ¬ ЄбЁ¬ «мл© н«Ґ¬Ґв}
var i,j,mi,ma,nc: integer;
var m: array[1..3,1..3] of integer;
begin
writeln('‚ўҐ¤ЁвҐ Ёб室го ¬ ваЁжг');
for i:=1 to 3 do
for j:=1 to 3 do read(m[i,j]);
{ђ бЇҐз вЄ ¬ ваЁжл}
writeln('€б室 п ¬ ваЁж ');
for i:=1 to 3 do
begin
for j:=1 to 3 do write(m[i,j]:4);
writeln
end;
{Ќ ©вЁ ®¬Ґа бв®«Ўж (nc), ў Є®в®а®¬ 室Ёвбп ¬ЁЁ¬ «мл© н«Ґ¬Ґв ¬ ваЁжл}
mi:=m[1,1]; nc:=1;
for i:=1 to 3 do
for j:=1 to 3 do
if m[i,j] < mi then
begin
mi:=m[i,j];
nc:=j
end;
{Ќ ©вЁ ¬ ебЁ¬ «мл© н«Ґ¬Ґв ў бв®«ЎжҐ nc}
ma:=m[1,nc];
for i:=1 to 3 do
if m[i,nc] > ma then ma:=m[i,nc];
writeln('Њ ЄбЁ¬ «мл© н«Ґ¬Ґв ',ma)
end.
Соседние файлы в папке Alex