Лабораторная работа №12
Вариант – 19
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
Автор: lexusBSD
Program lab;
Const
nmax=10;
Type
massive=array[1..nmax,1..nmax] of real;
Var
k1,k2,k3:integer;
sled1,sled2,sled3,max:real;
Procedure matrix(n:integer; var sled:real);
Var
i,j:integer;
a:massive;
Begin
writeln('Enter the matrix ',n,'x',n);
sled:=0;
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for i:=1 to n do
sled:=sled+a[i,i];
end;
Begin
write('Enter the size matrix X:');
readln(k1);
matrix(k1,sled1);
write('Enter the size matrix Y:');
readln(k2);
matrix(k2,sled2);
write('Enter the size matrix Z:');
readln(k3);
matrix(k3,sled3);
max:=sled1;
if ((sled2>max)and(sled2>sled3)) then
begin
max:=sled2; writeln('Sled matrix Y maximum',max);
end
else if sled3>max then
begin
max:=sled3; writeln('Sled matrix Z maximum',max);
end
else
writeln('Sled matrix X maximum',max);
End.
|
Главная
Каталог файлов
