Задан массив ,который состоит с положительных и отрицательных элементов.Найти сумму положительных и количество отрицательных.
Задан массив ,который состоит с положительных и отрицательных элементов.Найти сумму положительных и количество отрицательных.
Гость
Ответ(ы) на вопрос:
Гостьvar a:array[1..100] of integer;
n, i, k,sum: integer;
begin
read(n);
k:=0;
sum:=0;
for i:=1 to n do read (a[i]);
for i:=1 to n do
begin
if (a[i]<0) then k:=k+1 else
sum:=sum+a[i];
end;
end.
вроде так :)
Не нашли ответ?
Похожие вопросы