Регистрация
elcapone777
21.03.2022 10:07
Информатика
Есть ответ 👍

Проанализируй и запиши правильные ответы.

146
309
Посмотреть ответы 1

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

Ksuha1304
Ksuha1304
4,5(28 оценок)
Program primer; const n=10; var f: array[1..n] of integer; k,s,m: integer; sr: real; begin writeln ('vvedite massiv'); for m: =1 to n do readln( f[m]); k: =0; s: =0; for m: =1 to n do  if f[m]> 0 then begin s: =s+f[m]; inc(k); end; sr: =s/k; writeln('sr=',sr); readln; end.

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