ПОМОГИТЕ,ПОЖАЛУЙСТА!! СЕГОДНЯ НАДО!!Turbo P.Дан массив из 20 действительных чисел. Вычислить отдельно сумму положительных элементов массива, отдельно отрицательных.
ПОМОГИТЕ,ПОЖАЛУЙСТА!! СЕГОДНЯ НАДО!!
Turbo P.
Дан массив из 20 действительных чисел. Вычислить отдельно сумму положительных элементов массива, отдельно отрицательных.
Гость
Ответ(ы) на вопрос:
ГостьТурбо Паскаля нет, вставьте первым оператором Uses CRT
const
n = 20;
var
x: array[1..n] of real;
i: integer;
sp, sn: real;
begin
Randomize;
Write('Элементы массива: ');
sp := 0; sn := 0;
for i := 1 to n do
begin
x[i] := (Random(101) - 50) / 1.33;
Write(x[i]:0:5, ' ');
if x[i] > 0 then sp := sp + x[i]
else if x[i] < 0 then sn := sn + x[i]{нули тоже сюда, они не мешают}
end;
Writeln(#13#10, 'Сумма положительных=', sp:0:5, ', отрицательных=', sn:0:5)
end.
Тестовое решение:
Элементы массива: 3.75940 21.80451 -16.54135 9.77444 10.52632 -7.51880 32.33083 -23.30827 12.03008 -3.00752 25.56391 24.81203 24.06015 -9.02256 -11.27820 34.58647 25.56391 9.02256 -27.06767 6.01504
Сумма положительных=239.84962, отрицательных=-97.74436
Не нашли ответ?
Похожие вопросы