Автор Ирина Лукъянова задал вопрос в разделе Другие языки и технологии
помогите решить задачу в паскале. Для массива Х найти среднее арифметическое положительных элементов массива. и получил лучший ответ
Ответ от Адриан Сивак[эксперт]
const n=5; var x: array [1..n] of integer; i,k:integer; s,sr:real; begin writeln(\'vvedite elementi massiva\'); for i:=1 to n do begin write(\' \',i,\'-element\'); readln(x); end; writeln(\' massiv -\'); for i:=1 to n do begin write(x,\' \'); end; s:=0; k:=0; for i:=1 to n do begin if (x>0) then begin s:=s+x; inc(k) end; end; sr:=s/k; writeln(\' sredne orifmiti4eskoe pol. elementov=\', sr); readln; end.
Ответ от El Nino[активный]
В случае, когда необходимо быстро снять усталость, целесообразно прибегнуть к тонизирующему массажу.
ТОЧКИ ДЛЯ МАССАЖА, которые помогут СНЯТЬ УСТАЛОСТЬ,
вялость, утомление и повысят работоспособность.
Подробней - методика и СХЕМЫ точек:
------------------------------------------------------------------------------
В случае, когда необходимо быстро снять усталость, целесообразно прибегнуть к тонизирующему массажу.ТОЧКИ ДЛЯ МАССАЖА, которые помогут СНЯТЬ УСТАЛОСТЬ,
вялость, утомление и повысят работоспособность.
Подробней - методика и СХЕМЫ точек:
------------------------------------------------------------------------------
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: помогите решить задачу в паскале. Для массива Х найти среднее арифметическое положительных элементов массива.