Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в интервал - Turbo Pascal (34034)

Формулировка задачи:

Помогите решить 2 задания: 1).Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в интервал от –2 до 10. Размерность массива –25. Заполнение массива осуществить случайными числами от -5 до 15.

Код к задаче: «Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в интервал - Turbo Pascal (34034)»

textual
const
  n=25;
var
  a: array[1..n] of integer;
  i,k,s: integer;
begin
  k:=0;
  writeln('ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў:');
  for i:=1 to n do
  begin
    a[i]:=random(21)-5;
    write(a[i]:3);
    if (a[i]>=-2) and (a[i]<=10) then
    begin
      s:=s+a[i];
      inc(k);
    end;
  end;
  writeln;
  writeln('ÑðåäГ*ГҐГҐ Г*ðèôìåòè÷åñêîå èñêîìûõ ýëåìåГ*òîâ = ',s/k);
  readln;
end.

9   голосов, оценка 3.444 из 5


СОХРАНИТЬ ССЫЛКУ