помогите написать программку  которая из 20 чисел обретает наибольшее трехзначное число,

Помогите написать программу которая из 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 (jgt;99) and (jlt;999) and (j mod 9 lt;gt;0) and (jgt;max) then max:=j;
if maxgt;99 then writeln (max) else writeln ('no');
readln;
end.

программа инспектирует только последнее число, а не все 20. где ошибка?

Задать свой вопрос
2 ответа
  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 (jgt;99) and (jlt;999) and (j mod 9 lt;gt;0) and (jgt;max) then max:=j;

  end;
  end;
 if maxgt;99 then writeln (max) else writeln ('no');
end.

Егор Трусько
запоздал немножко
Анатолий Кнестянин
спасибо! я теснее сообразил, где была ошибка)
Я бы написал легче, но здесь ошибка в цикле, после объявление цикла начни begin, а после if maxgt;99 then... end; Конкретно ";"
Камилла
да,спасибо! я знал, что цикл не выполняется, но не знал как поправить.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт