Регистрация
bumnov23
07.03.2021 17:29
Информатика
Есть ответ 👍

Приведите пример семантической сети

142
245
Посмотреть ответы 1

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

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.

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