Определить среднее арифметическое положительных элементов

@Paulo Dybala · Регистрация: 31.05.2016

Author24 — интернет-сервис помощи студентам

Дан массив целых чисел, состоящий из N элементов. Определить среднее арифметическое положительных элементов.

@SW Developer · 07.06.2016, 17:08

Pascal

const m=100;
var mas: array[1..m] of integer;
    i, j, n: byte;
    sum: integer;
    s_sum: real;
    
BEGIN
     repeat
           Write('Введите размер массива до ', m, ': ');
           ReadLn(n);
     until n in [1..m];
     WriteLn('Массив:');
     for i:=1 to n do
     begin
          mas[i]:=Random(30)-10;
          Write(mas[i]:4);
     end;
     WriteLn;
     sum:=0;
     j:=0;
     for i:=1 to n do
          if mas[i]>0 then
          begin
               sum:=sum+mas[i];
               j:=j+1;
          end;
     s_sum:= sum/j;
     WriteLn('Результат = ', s_sum:4:2);
          
END.

@Paulo Dybala 0 / 0 / 0 Регистрация: 31.05.2016 Сообщений: 7
		1
	Определить среднее арифметическое положительных элементов 07.06.2016, 16:23. Показов 1074. Ответов 1 Метки нет (Все метки) Дан массив целых чисел, состоящий из N элементов. Определить среднее арифметическое положительных элементов. 0

	07.06.2016, 17:08

Определить среднее арифметическое положительных элементов

Решение