program lab4;
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;
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;
writeln ('isxodnaa matrica');
for i:=1 to n do
begin for j:=1 to m do
write (c[i,j]:2:2,'');
writeln;
end;
;
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.