Задать вопрос
8 июня, 15:55

В массиве из 15 чисел подсчитать сумму и количество положительных элементов. Помогите, программа на языке паскаля

+5
Ответы (2)
  1. 8 июня, 16:55
    0
    Var

    a: array[1 ... 15] of integer;

    i, sum, count: integer;

    begin

    for i:=1 to 15 do

    readln (a[i]);

    sum : = 0; count : = 0;

    for i:=1 to 15 do

    if a[i] > 0 then

    begin

    sum : = sum + a[i];

    inc (count);

    end;

    writeln (sum, ' ', count);

    end.
  2. 8 июня, 17:49
    0
    Program n1;

    var a: array [1 ... 15] of integer;

    S, k, i: integer;

    begin

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

    S:=0;

    k:=1;

    for i:=1 to 15 do

    begin

    if (a[i]>0) then

    begin

    S:=S+a[i];

    k:=k+1;

    end;

    end;

    writeln (k);

    writeln (S);

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