Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Дан массив из 20 действительных чисел. Напишите программу, которая складывает отдельно все положительные элементы этого массива, а отдельно отрицательные элементы и выдает на экран полученные результаты. Желательно подробную программу, буду всем благодарна)

Ответ оставил Гость

Var A:array[1..20]of real;
B,C:real;
i:byte;
Begin
WriteLn(Введи элементы массива через пробел);
For i:= 1 to 20 do
 Read(A[i]);
For i:= 1 to 20 do
 if A[i]>0 then B:=B+A[i]
 else C:=C+A[i];
WriteLn(Сумма положительных элементов = ,B);
WriteLn(Сумма отрицательных = ,C)
End.