Написать программу которая из 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. где ошибка?
vadim4ikkek
2
25.05.2019 07:30
0
Другие вопросы по теме Информатика
yulya160
19.05.2019 13:19
emilsalimov
19.05.2019 13:19
Adamant0813
12.06.2019 13:40
daria9303
28.07.2019 09:50
lilo52
06.10.2019 01:40
ma4newarita
06.10.2019 01:40
Саляриум
06.10.2019 01:40
SmallGeek
19.10.2020 14:33
таня2033
19.10.2020 14:33
Популярные вопросы
- В1-ом ящике 27 кг. ягод. во 2-ом ящике на 1,2 раз меньше кг. ягод....
3 - Поставьте в правильной последовательности that week they visit...
3 - Напишите сочинение на тему мой любимый день недели-понидельник...
3 - Причинами поражения руси в борьбе с монголо-татарскими захватчиками...
3 - Если каждое ребро куба увеличить в 2,5 раз, то во сколько раз...
3 - 1. в чём причина эволюции? 2. почему мы не можем проследить за...
2 - Записать логическое высказывание, обратное данному. 1. «вася высокий,...
1 - Взимнее время года произошла автокатастрофа, на дорого неинтенсивного...
2 - 25 . обьясните сложения и вычитания дробей с разными знаменателями...
3 - Какие реакции протекают в водном р-ре? 1) fe+cu(no3)2 = 2) cu+feci3=...
3
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.