Задать вопрос
21 января, 04:03

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

+1
Ответы (1)
  1. 21 января, 06:34
    0
    Ошибка заключается в том, что тип объявленного массива А является "real". Числа типа "real" не имеют операцию "остаток от деления на число". (Строчка, где это проверяется в Вашей программе: " if A[i] mod 5 0 then S:=S+A[i]; ")
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Нельзя преобразовать Real к integer проверил раз 10, не могу найти ошибку! Program Lol; Const N=20; Var A:array [1 ... N] of real; S:real; ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы