Дан массив из 25 чисел, найти СРЕДНЕЕ АРИФМЕТИЧЕСКОЕ элементов массива, СУММУ массива и...

Question

Дан массив из 25 чисел, найти СРЕДНЕЕ АРИФМЕТИЧЕСКОЕ элементов массива, СУММУ массива и КОЛ-ВО ЧЁТНЫХ и НЕ ЧЁТНЫХ элементов массива. Элементы вводятся с помощью ГСЧ.

Comments

до скольки могут быть числа

---

в ГСЧ

---

Если всё будет работать, давай я тебе 50р скину?

---

ок

---

от 1 до N нельзя сделать? тогда пусть будет 50

---

без предела не может быть должны быть в условии рамки

---

Я понял, они без предела

---

типо от 0 до 100 или от 0 до 100000

---

числа до какого предела могу быть

---

Они случайные, а количество их 25

Answer 1

program znanija;

uses CRT;

Var n,k,sum,ch,nch: integer;

sa: real;

M: Array[1..25] of integer;

begin

write('Ведите N: ');readln(n);

for k:=1 to 25 do

begin

M[k]:=random(n);

sum:=sum+M[k];

if (M[k] mod 2 = 0) then

begin

ch:=ch+1;

end else

begin

nch:=nch+1;

end;

end;

sa:=sum/25;

Writeln('Среднее арихметическое - ',sa);

Writeln('Сумма чисел - ', sum);

Writeln('Количество чётных - ', ch);

Writeln('Количество не чётных - ', nch);

writeln('--Числа--');

for k:=1 to 25 do

begin

Write(m[k],', ');

end

end.

Comments

Видно

---

зач?

---

Давай вк спишемся?

---

да

---

сдвиг там, где 41-20?

---

и зачем-то сдвиг рандома

---

да правильно ток без выбора рамок рандома

---

Вспоминал паскаль

---

А у Pacixor правильно написано?

---

Ещё блок-схему этого кода сделать надо и за всё это 100р переведу тебе. номер карты дашь сбербанка

Answer 2

Var
  A: array[1..25] of integer;
  mean: real;
  qodds, qevens, i: byte;
  sum: integer;
begin
  sum := 0;
  qodds := 0;
  qevens := 0;
  randomize;
  for i := 1 to 25 do
  begin
    A[i] := random(41)-20;
    sum := sum + A[i];
    if (A[i] mod 2 = 0) then
      qevens := qevens + 1
    else
      qodds := qodds + 1;
    write(A[i], ' ');
  end;
  writeln(#13 + 'Среднее арифметическое = ', (sum / 25):0:2);
  writeln('Сумма = ', sum);
  writeln('Четных = ', qevens);
  writeln('Нечетных = ', qodds);
end.

Comments

Тебе 50р скинуть?