Задать вопрос
18 сентября, 22:33

Помогите написать алгоритм нахождения суммы положительных среди 10 вводимых.

+2
Ответы (1)
  1. 19 сентября, 01:04
    0
    Program BiFi;

    Var a:array[1 ... 10] of real;

    s, i:real;

    Begin

    s:=0;

    for i:=1 to 10 do begin readln (a[i]) ;

    if a[i]>0 then s:=s+a[i];

    end;

    writeln (s) ;

    readln;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите написать алгоритм нахождения суммы положительных среди 10 вводимых. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы