program sum; uses crt; var i: integer; sum, p, sr : real; a : array [1..25] of real; beginclrscr; for i: =1 to 25 do begin write ('a[',i,']='); readln(a[i]); end; sum: =0; for i: =1 to 25 do begin
if a[i]> 0 then sum: =sum+a[i];
end;
sr: =sum/25;
for i: =1 to 25 do begin
if a[i]< 0 then p: =p*a[i];
end; writeln ('sum=',sum: 5: 2);
writeln ('p=',p: 5: 2);
writeln ('sr=',sr: 5: 2); readln; end.
Поделитесь своими знаниями, ответьте на вопрос: