Сформировать массив, подсчитать количество элементов не превосходящих заданного числа n-задано с клавиатуры. Найти их среднее арифметическое значение.
Ответы
Ответ дал:
0
var a:array [1..20] of integer;
s,k,i:integer;
begin
k:=0; s:=0;
for i:=1 to n do
read(a[i]);
readln(n);
for i:=1 to 20 do
if a[i]<=n then begin
k:=k+1;
s:=s+a[i];
end;
writeln('Кол-во:',k);
writeln('Средн.арифм.:',s/k)
end.
s,k,i:integer;
begin
k:=0; s:=0;
for i:=1 to n do
read(a[i]);
readln(n);
for i:=1 to 20 do
if a[i]<=n then begin
k:=k+1;
s:=s+a[i];
end;
writeln('Кол-во:',k);
writeln('Средн.арифм.:',s/k)
end.
Ответ дал:
0
не известно имя N for i:=1 to n do в этой строке
Ответ дал:
0
ой, да, извини, по привычке, исправь там n на 20
Ответ дал:
0
readln(n); неизвестно имя n Если вместо n ставлю 20 то нельзя считывать данные этого типа
Похожие вопросы
7 лет назад
9 лет назад
10 лет назад