program lab4; uses crt; const n=5; m=3; var c:array [1..n,1..m] of real; a:array [1..n] of real; i,j,k,l:integer; s,f,d:real; procedure vvod; begin writeln ('vvedite matricy c[5*3]'); for i:=1 to n do for j:=1 to m do begin writeln ('c[',i,j,']'); readln (c[i,j]); end; end; procedure vblvod; begin writeln ('isxodnaa matrica'); for i:=1 to n do begin for j:=1 to m do write (c[i,j]:2:2,''); writeln; end; end; procedure vblch; begin for i:=1 to n do begin if c[i,3]<0 then begin a[i]:=c[i,3]; writeln (c[i,3]:2:2); end; end; for i:=1 to n do write (a[i]:2:2,''); writeln; begin i:=1; S:=0; for i:=1 to n do S:=s+a[i]+sin(a[i]); writeln ('s=',s:2:2) end; d:=s; c[3,2]:=d; writeln ('rezultat'); for i:=1 to n do begin for j:=1 to m do write (c[i,j]:2:2,''); writeln; readln; end; end; begin vvod; vblvod; vblch; end.