Лабораторная работа №11
Вариант – 19
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
Автор: lexusBSD
Program mat;
Var
A:array[1..7, 1..7] of integer;
S:array[1..7] of integer;
i,j,k,n,min:integer;
Begin
writeln('Enter the matrix size');
read(n);
writeln('Enter the matrix of',n*n:2,' elementov <=10');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
writeln('ishodnaya matrix');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln
end;
for i:=1 to n do
s[i]:=1;
for i:=1 to n do
for j:=1 to n do
s[i]:=s[i]*a[j,i];
min:=s[1];
for i:=2 to n do
if s[i]
then
min:=s[i];
writeln('Min proizvedenie elementov slobsa ravno',min:4);
End.
|
Главная
Каталог файлов
