Помогите пожалуйста) Составьте программу,которая заполняет массив a[1..8] случайными...

Question

Помогите пожалуйста)
Составьте программу,которая заполняет массив a[1..8] случайными целыми числами в диапазоне от 1 до 10 и выводит на экран количество элементов с четными значениями и сумму элементов массива с нечетными значениями.

Answer 1

Var a:array[1..8]of integer;
     i,k,s:integer;
begin
 for i:=1 to 8 do
  begin
   a[i]:=random(10)+1;
   write(a[i],' ');
   if a[i] mod 2=0 then k:=k+1
                         else s:=s+a[i];
  end;
 writeln;
 writeln('kol-vo chet elem:',k,' summa nechet:',s);
end.

Comments

Ты задал условие для нахождения количества четных элементов.Мне надо для нечетных.

---

Ой,я ошиблась)Извини)

---

поставь там просто напросто a[i] mod 2=1 а не a[i] mod 2=0

---

тогда будет находить сумму чётных

---

и количество нечётных

---

во всяком случае в условии твоём то ""выводит на экран количество элементов с четными значениями и сумму элементов массива с нечетными значениями"".

---

да ладно уж

---

сделай лучшим ответом плз