В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
vyacheslavkotov
vyacheslavkotov
11.01.2021 05:26 •  Информатика

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

Показать ответ
Ответ:
Vasianeumaha
Vasianeumaha
08.10.2020 08:04
Ошибка заключается в том, что тип объявленного массива А является "real". Числа типа "real" не имеют операцию "остаток от деления на число". (Строчка, где это проверяется в Вашей программе: "if A[i] mod 5 <>0 then S:=S+A[i];")
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота