Помогите пожалуйста!!!Срочно!!!Заранее огромное спасибо. "Заполнить массив из 8 эл-тов...

Question

Помогите пожалуйста!!!Срочно!!!Заранее огромное спасибо.
"Заполнить массив из 8 эл-тов случайными числами в диапазоне от 1 до 10, и вывести на экран кол-во эл-тов с четными значениями и сумму эл-тов с нечетными числами

Answer 1

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(8,1,10); a.Println;
  Writeln('Количество элементов с четными значениями ',
      a.Where(x->x.IsEven).Count);
  Writeln('Сумма элементов с нечетными значениями ',
      a.Where(x->x.IsOdd).Sum)
end.

Пример
7 4 8 6 5 8 7 6
Количество элементов с четными значениями 5
Сумма элементов с нечетными значениями 19

Answer 2

Var a :array[1..8]of integer;f,x,i:integer; beginrandomize;f:=0;x:=0;for i := 1 to 8 do begin        a[i] := random(9);        write(a[i],';');                if (a[i] mod 2=0) then        f:=f+1 else x:=x+a[i];    end;;    writeln; writeln('кол-во четных ',f,' сумма не четных ',x);end.

Comments

var a :array[1..8]of integer;
f,x,i:integer;
begin
randomize;
f:=0;
x:=0;
for i := 1 to 8 do begin
a[i] := random(9);
write(a[i],';');

if (a[i] mod 2=0) then
f:=f+1 else x:=x+a[i];
end;;
writeln;
writeln('кол-во четных ',f,' сумма не четных ',x);
end.