Помогите решить пожалуйста, pascalДаны 5 натуральных чисел: a1,a2,a3,a4,a5Определить количество чётных и нечетных чисел
Именно так, а1, а2, ... это не элементы массива?
нет, не массив, уже пробовал, сказали не правильно
А что, тупо пять раз написать if-then-else ?
я не знаю, если можете, напишите пожалуйста
Или просто вводить в цикле и подсчитывать?
можно и так наверное, не знаю
begin
var (ke,ko):=(0,0);
loop 5 do
if ReadInteger.IsOdd then Inc(ko)
else Inc(ke);
Writeln('Четных ',ke,', нечетных ',ko)
end.
мы так не проходили еще, не примут
