Задача вторая.................

Задача вторая.................
Гость
Ответ(ы) на вопрос:
Гость
const n=10;  var a:array[1..n] of integer; k,s,i:integer;  begin writeln('Исходный массив:'); for i:=1 to n do  begin  a[i]:=random(21)-10;  write(a[i],'  ');  end; writeln; k:=0; for i:=1 to n do  if a[i]>0 then begin k:=k+1; s:=s+a[i]; end; if k>0   then writeln('Среднее значение положительных элементов = ',s/k)  else writeln('Положительных элементов нет');   end. Пример: Исходный массив: -10  3  -9  -7  -3  -10  -7  6  10  4   Среднее значение положительных элементов = 5.75
Не нашли ответ?
Ответить на вопрос
Похожие вопросы