Написать программу ( в Pascal abc): Вводится 3 целых числа. Сколько среди них будет...

Question

Написать программу ( в Pascal abc): Вводится 3 целых числа. Сколько среди них будет чётных чисел, оканчивающихся на 8

Answer 1

Var a:array [0..5] of Integer;    n,h,i:Integer;
begin 
 h:=0; 
 for i:=0 to 5 do 
Readln(a[i]); 
for i:=0 to 5 do 
 if (a[i] mod 2=0) and (a[i] mod 10=8) then 
  Inc(h); 
Writeln(h); 
readln;
end.

---

Comments

Судя по коду ,тут цельная программа,которая не соответствует заданию

---

в Pascal abc не работает.

---

потому что в паскале абс нету динамических массивов

---

Задание "Написать программу ( в Pascal abc)"

---

ой вместо var a:array of Integer; написать var a:array [0..5] of Integer;

---

это разве проблемма?

---

*проблема

---

Нужно писать правильное решение.

---

все

---

теперь исправил