Учеба и наука

• Всего ответов: 1


Валентина
3-й в
411 отзыв
program pr;
uses crt;
const n=3, m=3; 
var a:array[1..n,1..m] of real;
i,j, maxi, maxj, mini, minj:integer;
max,min,temp:real; 
begin
clrscr();
writeln('vvedite matricu');
for i:=1 to n do
for j:=1 to m do
  readln(a[i,j]);
writeln('do zameny');
for i:=1 to n do
begin
  for j:=1 to m do write(a[i,j]:8:2);
  writeln;
end;
min:=a[1,1]; max:=a[1,1];
mini:=1; minj:=1; maxi:=1; maxj:=1;
for i:=1 to n do
for j:=1 to m do
begin
  if  a[i,j]<=min then begin min:=a[i,j]; mini:=i; minj:=j end;
  if  a[i,j]>=max then begin max:=a[i,j]; maxi:=i; maxj:=j end;  
 end;
temp:=min;
a[mini,minj]:=max;
a[maxi,maxj]:=temp; 
writeln('posle zameny');
for i:=1 to n do
begin
  for j:=1 to m do write(a[i,j]:8:2);
  writeln;
end;
readln
end. 
апрель 19, 2013 г.
Ответ понравился автору
Лучший ответ по мнению автора

Похожие вопросы