69

Дан массив A из 20 элементов. Заменить отрицательные элементы массива на среднее…

22 февраля 2023

Дан массив A из 20 элементов. Заменить отрицательные элементы массива на среднее арифметическое элементов массива.

категория: информатика



95

Varx,n: integer; sr: real; beginsr: =0; for n=1 to 20 dobeginreadln (x); sr: =sr+x; end; sr: =sr/n; for n=1 to 20 doif x<0then begin x: =sr; writeln (x) else writeln (x); end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...