Мне необходимоСоставить программу для обработки массива из 12 вещественных чисел. и вывести нечетные числа, но выдает ошибку: тип real к integer
Program Massiv1;
Uses Crt;
var k:array[1..12] of real;
i,c:integer;
begin
clrscr;
write('Введите элементы массива k:');
c:=0;
for i:=1 to 12 do
begin
readln(k[i]);
if (k[i] mod 2=0) then Inc(c);
end;
writeln;
writeln;
for i:=1 to 12 do write(k[i]:4:4);
writeln;
writeln('Количество нечетных элементов :',c);
readkey;
end.
Ответы (1 шт):
Автор решения: vanesicks
→ Ссылка
У вас массив k типа real (вещественные числа), операцию целочисленного деления mod можно использовать только с целыми числами.
Вам нужно заменить real на integer в 3 строчке.