Лекции и рефераты по социологии (ARISTOT)

Посмотреть архив целиком

program MAXIMUM;

uses crt;

const N=3;

type

matrix=array[1..N,1..N] of real;

var c:matrix;

max1,max2:real;

i,y,ymax1,ymax2:integer;

begin

clrscr;

writeln ('Введите матрицу');

for i:=1 to n do

for y:=1 to n do begin

readln(c[i,y]);

end;

max1:=c[1,1];

ymax1:=1;

for i:=1 to n do begin y:=i;

if max1

ymax1:=i;

end;

end;

max2:=c[1,1];

ymax2:=1;

for i:=1 to n do begin y:=n-i+1;

if max2

ymax2:=i;

end;

end;

if max1>max2 then begin

writeln(max1:8:2);

for y:=1 to n do begin

writeln(c[ymax1,y]:8:2);

end;

end

else writeln(max2:8:2);

for y:=1 to n do begin

writeln(c[ymax2,y]:8:2);

end;

end.


Случайные файлы

Файл
90596.rtf
1245-1.rtf
132320.rtf
83748.rtf
149109.doc




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.