Написать программу которая из 20 чисел находит максимальное трехзначное число, не кратное 9. если таких чисел нет, писать "нет" const n=20; var a: array [1..n] of integer; i,j,max: integer; begin for i: = 1 to n do readln(a[i]); max: =99; j: =a[i]; for i: = 1 to n do if (j> 99) and (j< 999) and (j mod 9 < > 0) and (j> max) then max: =j; if max> 99 then writeln (max) else writeln ('no'); readln; end. программа проверяет только последнее число, а не все 20. где ошибка?
273
284
Ответы на вопрос:
const n=20; var a: array [1..n] of integer; i,j,max,k: integer; begin max: =99; for i: = 1 to n do begin readln(a[i]); j: =a[i]; for k: = 1 to n do begin if (j> 99) and (j< 999) and (j mod 9 < > 0) and (j> max) then max: =j; end; end; if max> 99 then writeln (max) else writeln ('no'); end.
Ябы написал легче, но тут ошибка в цикле, после объявление цикла начни begin, а после if max> 99 end; именно "; "
В120 машинах ехало по 6 чел. по сколько человек ехало в 360 машинах, если кол. чел. во всех машинах одинаковое? 1) 120*6=720 2 )720: 360=2 исходя из этого уравнения. 6*120=х*360
Популярно: Информатика
-
terminator2725.04.2022 03:56
-
jjiki23.04.2023 19:21
-
pczheka113.09.2022 12:24
-
nikitkaapalkov12.01.2023 23:52
-
Ксения011238730.04.2020 23:23
-
аня293911.04.2023 20:53
-
vlada04110427.01.2022 17:39
-
kamillaakhmetz16.06.2023 13:03
-
Ijorik01.12.2022 08:56
-
CleverBoy1707.03.2021 11:04