Регистрация
faraoniklp07wqy
21.01.2022 08:26
Информатика
Есть ответ 👍

Напишите программу на Pascal: Напишите среднее значение целых положительных чисел, которые вводятся с клавиатуры (окончание ввода-ввод числа 0)

131
469
Посмотреть ответы 3

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

keklol1990
keklol1990
4,4(22 оценок)

//Pascal

var a,i,s,n:integer;

begin

 s:=0;

 n:=0;

 repeat

    readln(a);

    if a>0 then begin

       n:=n+1;

       s:=s+a;

    end;

 until a = 0;

 writeln('Сумма ',s:5,'  Среднее арифметическое ТАК) (Я НЕСОВСЕМ УВЕРЕН)

mminovskaya777
mminovskaya777
4,5(36 оценок)

--- PascalABC.NET 3.6.2 ---

begin

 ReadSeqIntegerWhile(p -> p <> 0).Where(p -> p > 0).Average.Println;

end.

Белова1234567890
Белова1234567890
4,7(27 оценок)
#include < stdio.h> main()  {  int a;   scanf("%d",& a);   if (a> 0) //проверка условия  {    printf("+"); }    else    {    printf("-");   }  } пример: 25 +

Популярно: Информатика