Составте пргорамму которая заполняет массив а 1.8 случайными целыми числами в диапазоне...

Question

Составте пргорамму которая заполняет массив а 1.8 случайными целыми числами в диапазоне от 1 до 10 и выводит на экран количество элементов с чётными значениями и сумму массива с нечётнвми значениями

Comments

массив двоичный

---

что значит a 1.8 это размерность?

---

а [1..8]

---

program dfg;vara: array [1..8] of integer;f,n,i:integer;beginn:=0;randomize ;for I:=1 to 8 dobegina[i]:= random(1,10);writeln(a[i]);if (a[i] mod 2)=0 thenbeginf:=1;endelse begin f:=0;end;n:=n+f;writeln(n);end;end.

---

program dfg;vara: array [1..8] of integer;f,n,i:integer;beginn:=0;randomize ;for I:=1 to 8 dobegina[i]:= random(1,10);writeln(a[i]);if (a[i] mod 2)=0 thenbeginf:=1;endelse begin f:=0;end;n:=n+f;end;writeln(n);end.

---

первое не правильно

Answer 1

Program dfg;
var
a: array [1..8] of integer;
f,n,i:integer;
begin
n:=0;
randomize ;
for I:=1 to 8 do
begin
a[i]:= random(1,10);
writeln(a[i]);
if (a[i] mod 2)=0 then
begin
f:=1;
end
else 
begin 
f:=0;
end;
n:=n+f;
end;
writeln(n);
end.