Паскаль:через составной оператор Begin....end составить программу, которая вычисляет сумму и среднее арифметическое положительных чисел

121

453

Посмотреть ответы 2

Ответы на вопрос:

kolya0125

Информатика

4,4(7 оценок)

Program p1;

Var a, i, n, k,z: integer;

Begin

Write('Введите количество чисел: ');

readln(n);

k:=0;

z:=0;

For i:=1 to n do begin

readln (a);

if (a > 0) then k:=k + a;

z:=z + 1;

end;

Writeln('Сумма положительных чисел = ',k);

Writeln('Среднее арифметическое чисел = ',k/z);

End.

sveta4841

Информатика

4,6(76 оценок)

// pascalabc.net 3.1, сборка 1250 от 28.05.2016 begin var q: =arrrandom(21,-99,99); q.println; writeln('ср.арифм. отрицательных элементов равно ', q.where(x-> x< 0).average: 0: 5) end. тестовое решение 21 38 24 -55 -60 70 61 55 -17 -23 -28 6 30 -13 9 55 95 -96 91 62 53 ср.арифм. отрицательных элементов равно -41.71429