Дан целочисленный массив из 30-ти элементов. Написать программу, которая позволит…

Question

49

Дан целочисленный массив из 30-ти элементов. Написать программу, которая позволит найти среднее арифметическое положительных элементов массива.

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

ответить

в избранное ссылка

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

pluse4 · Accepted Answer

64

pluse4

22 февраля 2023

Паскаль: var mas: array[1… 30] of longint; n,i: longint; r: real; begin for i: =1 to 30 do read (mas[i]); n: =30; r: =0; for i: =1 to 30 do begin if mas[i]<1 then begin mas[i]: =0; n: =n-1; r: =r+mas[i]; end; writeln (r/n); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: