Пожалуйста!!! очень срочно...Определить среднее арифметическое положительных элементов
Пожалуйста!!! очень срочно...
Найти среднее арифметическое положительных элементов массива A, и вывести на экран номера нулевых частей массива. A=(3,2;2,5;0;0,7;0;-1,3;4,3;-2,9;0;-0,4;-5,2;3,4) . Вывести на экран результаты и данный массив. Pascal.
var
a : array of real := (3.2,2.5,0,0.7,0,-1.3,4.3,-2.9,0,-0.4,-5.2,3.4);
n : integer;
s : real;
begin
writeln('массив a = ', a);
write('номера частей равных 0: ');
for var i :=0 to a.Length-1 do begin
if a[i] = 0 then write(' ', i);
if a[i] gt; 0 then begin
n += 1;
s += a[i];
end;
end;
writeln;
writeln('s = ', s/n);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.