lab5.pas

Program lab5;
uses Crt;
type matr = array[1..4,1..4] of integer;
var a:matr; i, j, sum, min, mlt:integer;
Begin
ClrScr;
writeln('Введите матрицу:');
for i:=1 to 4 do 
  for j:=1 to 4 do read(a[i,j]);
writeln('Исходная матрица:');
for i:=1 to 4 do begin
  for j:=1 to 4 do write(a[i,j]:3);
  writeln;
end;
sum:=0; mlt:=1;
min:=maxint;
for i:=1 to 4 do 
  for j:=1 to 4 do begin
    if (a[i,j] > 0) then sum:=sum+a[i,j];
    if (a[i,j] < min) then min:=a[i,j];
    end;
mlt:=sum*min;
writeln('Сумма положительных элементов матрицы: ',sum:3);
writeln('Результат - произведение минимального элемента на сумму положительных элементов: ',mlt:3);
Readkey;
End.