Question

Нельзя преобразовать Real к integer проверил раз 10 , не могу найти ошибку!!! Program Lol; Const N=20; Var A:array [1..N] of real; S:real; i:integer; begin S:=0; for i:=1 to 10 do begin A[i]:=10*Random-1*(-1); if A[i] mod 5 <>0 then S:=S+A[i]; writeln('A[',i,']=',A[i]:1:2); end; writeln('S=',S:1:2); end.

Answer 1

Ошибка заключается в том, что тип объявленного массива А является "real". Числа типа "real" не имеют операцию "остаток от деления на число". (Строчка, где это проверяется в Вашей программе: "if A[i] mod 5 <>0 then S:=S+A[i];")