лабораторная работа / Лабораторная работа5
.docЛабораторная работа№5.
Задание: Вычислить сумму отрицательных элементов массива и их колличество.
БЛОК СХЕМА. ПРОГРАММА.
Program lab5;
Var A:array [1..10] of real; I,n: integer; s: real;
Begin
For i:=1 to 10 do read(A[i]);
S:=0;
N:=0;
For i:=1 to 10 do begin
If A[i]<0 then s:=s+A[i];
If A[i]<0 then n:=n+1;
End;
Write(‘s=’, s:12:6, ‘n=’, n:5);
End.