Нельзя преобразовать 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]:=10Random-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.

Question

Информатика

Поликсения

26 ноября, 05:25

Нельзя преобразовать 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]:=10Random-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.

+5

Ответы (1)

Знаете ответ?

Фелица · Answer 1

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