Держи '................
...............
Нужно что-то присвоить функции для случая, когда (2*a+b-c)<0
Например, так:
function sqrt1 (a, b, c: real): real;
begin
if (2 * a + b - c) < 0 then
<span>begin writeln (' complex number '); sqrt1:=-1; end</span>
else sqrt1:= sqrt(2 * a + b - c);
<span>end;</span>
Sqr(5) sqr(stgx) sqr (y-1)
sqr возведение в квадрат в паскале
Var i,j,sum,num:integer;
result:real;
a:array[1..10,1..10] of integer;
begin
sum:=0;
num:=0;
randomize;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=-20+random(40);
write(a[i,j]:5);
end;
writeln;
end;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
if a[i,j]<0 then
begin
sum:=sum+a[i,j];
num:=num+1;
end;
end;
end;
writeln;
result:=sum/num;
write(result:0:2);
end.