На­пи­ши­те про­грам­му, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел...

Question

На­пи­ши­те про­грам­му, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет мак­си­маль­ное число, окан­чи­ва­ю­ще­е­ся на 3. Про­грам­ма по­лу­ча­ет на вход ко­ли­че­ство чисел в по­сле­до­ва­тель­но­сти, а затем сами числа. В по­сле­до­ва­тель­но­сти все­гда име­ет­ся число, окан­чи­ва­ю­ще­е­ся на 3. Ко­ли­че­ство чисел не пре­вы­ша­ет 1000. Введённые числа не пре­вы­ша­ют 30 000. Про­грам­ма долж­на вы­ве­сти одно число — мак­си­маль­ное число, окан­чи­ва­ю­ще­е­ся на 3

Answer 1

Program n1;
var i,a,max,k: integer;
begin
write('кол-во чисел в последовательности: ');
readln(k);
write('введите 1 член: ');
readln(a);
max:=a;
for i:=1 to k-1 do
begin
write('введите ',i+1,' член: ');
readln(a);
if (a mod 10 = 3) and (a > max) then
max := a;
end;
writeln('искомый член: ',max);
end.