Регистрация
Madinamkm
29.06.2020 12:47
Информатика
Есть ответ 👍

Пастельдын канша туры бар

148
392
Посмотреть ответы 3

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

Alinakis180902
Alinakis180902
4,5(63 оценок)

Пастельдiн екi турi бар

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

Пастельдiн екi турi бар

Объяснение:

anystti
anystti
4,5(5 оценок)

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

i,s,n,k: integer;

begin

  read(n);

  for i : = 1 to n do begin

      read(a[i]);

      if a[i]> 0 then begin

          s: =s+a[i];

          k: =k+1;

      end;

  end;

 

  writeln(s, s/k);

end.

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