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

Question

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

Answer 1

Program ex;
var  i, h, k: integer;  a: array[1..8] of integer;
begin  h := 0;  k := 0;  for i := 1 to 8 do   begin    a[i] := random(1, 10);    if i mod 2 = 0 then      k := k + 1    else      h := h + a[i]  end;  writeln('Колл-во четных элементов : ', k);  write('Сумма нечетных элементов массива: ', h)end.

Comments

program ex;

var
i, h, k: integer;
a: array[1..8] of integer;

begin
h := 0;
k := 0;
for i := 1 to 8 do
begin
a[i] := random(1, 10);
if i mod 2 = 0 then
k := k + 1
else
h := h + a[i]
end;
writeln('Колл-во четных элементов : ', k);
write('Сумма нечетных элементов массива: ', h)
end.