PascalABC 1. Найти средне арифметическое элементов массива, превосходящих некоторое число...

Question

PascalABC 1. Найти средне арифметическое элементов массива, превосходящих некоторое число С. 2. Вывести только нечетные элементы. 3. Найти среднее арифметическое элементов с нечетными номерами.

Comments

посмотри мое решение, оно хоть без ошибок

---

сорри, но теперь я исправил

Answer 1

program first;

var a:array[1..100] of integer;

i,s,k,n,c:integer;

sr:real;

begin

read(n); {кол-во элементов массива}

for i:=1 to n do

read(a[i]); {ввод массива}

read(c); {ввод числа C}

s:=0; k:=0;

for i:=1 to n do

if (a[i]>c) then begin s:=s+a[i]; k:=k+1; end;

sr:=s/k; {считаем среднее арефмет.}

writeln(sr); {выводим ср. арефм.}

for i:=1 to n do

if a[i] mod 2<>0 then write(a[i],' '); {делаем 2 пункт}

writeln;

s:=0; k:=0; {обнулим чтобы использовать еще раз}

for i:=1 to n do

if a[i] mod 2<>0 then begin s:=s+a[i]; k:=k+1; end;

sr:=s/k;

writeln(sr);

end.

---

---

Comments

Я понял

---

Теперь все робит

---

Не работает (

---

ну теперь проверь

---

прежде чем отмечать чужие решения как нарушение - проверь, прав ли ты

---

сорри

---

вот прикрепил скрин

---

как видно все работает

---

Спасибо большое

Answer 2

var a:array of longint;

i,c,x,n,k:longint;

begin

read(n); //длина массива

a:= new longint[n];

for i:=0 to n-1 do read(a[i]);

read(c);//некоторое число С

for i:=0 to n-1 do

if a[i]>c then

begin

k+=1;

x+=a[i]

end;

writeln(x/k);//ответ на первый пункт

k:=0;

x:=0;

for i:=0 to n-1 do

if i mod 2=0 then

begin

k+=1;

x+=a[i];

print(a[i])//второй пункт

end;

writeln;

write(x/k)// третий пункт

end.

Comments

я приложил скрин к своей работе, где твою прога не работает

---

но на pacsalABC это не пойдет(

---

боже, какой версии у тебя паскальабц?я то последнюю использую) там все робит

---

мб тебе скрин приложить?)

---

чел, я писал в компиляторе паскальабц, все мопилируется и работае

---

ну

---

я вникал в код

---

решение абсолютно верное, просто тебе нужно вникнуть в код

---

хочешь прикол?размер массива считывается из консоли, тк не было указано в условии какой размерности массив

---

var a:array[1..100] of longint;