Срочно! Надо составить программу в PascalABС
Срочно! Надо составить программу в PascalABС
Гость
Ответ(ы) на вопрос:
Гостьvar
z: array[0..9]of real = (-6, 98, -45, 9, 4, -7, -12, 32, 1, 3);
sum: real;
i: integer;
begin
for i := 0 to 9 do
if(z[i] < 0) then sum := sum + z[i];
write(sum);
end.
Не нашли ответ?
Похожие вопросы