Одномерный целочисленный массив из 7 ячеек заполнен случайными числами в диапазоне от 0 до 15, выводится на экран в столбик с указанием индекса элемента.
Найти среднее арифметическое тех элементов массива, которые больше 3 и меньше 7. Ответ выводится на экран
СОСТАВИТЬ ПРОГРАММУ НА ЯЗЫКЕ PASCAL!
Найти среднее арифметическое тех элементов массива, которые больше 3 и меньше 7. Ответ выводится на экран
СОСТАВИТЬ ПРОГРАММУ НА ЯЗЫКЕ PASCAL!
Answers & Comments
program massive;
const
n=7;
var
a : array [1..n] of integer;
i,k,s: integer;
m:real;
begin
randomize;
s:=0;
k:=0;
for i:=1 to n do
begin
a[i]:=random(15);
write(a[i],' ');
end;
writeln;
for i:=1 to n do
if (a[i]>3) and (a[i]<7) then
begin
k:=k+1;
s:=s+a[i];
end;
m:=s/k;
writeln('Среднее арифметическое: ',m:0:2);
end.