Размещено 5 лет назад по предмету
Информатика
от Max161161161
Нельзя преобразовать 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.