Паскаль помогите пожалуйста Тип данных Массив от 1 до 10 с элементами типа Integer...

Question

Паскаль помогите пожалуйста

Тип данных Массив от 1 до 10 с элементами типа Integer создать алгоритм который вычеслит произведение парных чисел

Answer 1

Var
  a: array [1..10] of Integer;
  i, p : Integer;
begin
  for i := 1 to 10 do
  begin
    Write('a[', i, '] = ');
    Readln(a[i]);
  end;

  for i := 1 to 10 do
    if a[i] mod 2 = 0 then p := p * a[i];

  Writeln(p);
end.

Comments

Турбо паскаль

---

Нет компиляция нормально

---

В ране

---

Если ставить тлько двойки то норм

---

Я возможно не то ввёл

---

Проверил, все работает, если так и не получается, то напиши в лс.

---

А что ты вводил?

---

Рандомные цифры

---

программа написана правильно чё ты придираешься, после end; поставь p:=1;, извините просто столько уведомлений от вас

---

Всё нормально у меня не получалось извините я новичок......

Answer 2

Program Bi3;
var    
a:integer;   
pr:integer;   
 i:integer;
begin
a[0]:=0;
pr:=1;
writeln('Введите ваше число');
for i:=1 to 10 do begin   
readln(a[i]);   
If (a[i]-a[i-1]=2) then begin   
pr:=pr*a[i];end;end;End.