Помогите решить задачу на Паскале

Question

Помогите решить задачу на Паскале. Для заданного одномерного МАССИВА с компонентами вещественного типа написать программу решениязадачи: вычислить среднее арифметическое его положительных членов.

Answer 1

71

sergeygymilev

28 февраля 2023

const n=10var a: array[1… n] of real; summ: real; i, n, count: integer; begin count: =0; summ: =0; for i: =1 to n do begin a[i]: =(random (101) — 50) / 10; write (a[i], '); if a[i] > 0 then begin summ: =summ+a[i]; inc (count); end; end; writeln; writeln ('Среднее арифметическое: ', summ / count); end.

пользователи выбрали этот ответ лучшим

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

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

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

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