Информатика, вопрос задал Max161161161 , 7 лет назад

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

Ответы на вопрос

Ответил Maksim2009rus

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

Ответил Maksim2009rus

Нельзя к A[i] применять mod, нужно сначала округлить A[i] до целого, например, функцией Trunc, как вариант, или подумать над другим алгоритмом

Ответил Maksim2009rus

Либо сделать массив A из целых чисел.. всё зависит от конкретного задания

Ответил Max161161161

дана последовательность действительных чисел а1,а2...аn.
Определить произведение элементов массива кратных 5

Ответил Max161161161

как-то так звучит задача ,может подскажешь как быть

Ответил Аноним

Ну что за проблема? Проверяйте Frac(a[i]/5)=0

Предыдущий вопрос

Следующий вопрос