ТАПСЫРМАНЫҢ МӘТІНІ Пайтон тілінде санның 9-ға еселік пе, әлде жоқ па анықтайтын программа кодын құр.
программа коды скриншоты мен нәтиже скриншотын жүкте​

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,i,min,max,n:integer;
begin
  write('Введите количество чисел ');
  readln(n);
  min:=MaxInt; //считаем, что мимнимальное - самое большое целое
  max:=-MaxInt;//считаем, что максимальное - самое маленькое целое
  for i:=1 to n do begin
    readln(a);
    if a>max then max:=a;
    if a<min then min:=a;
  end;
  writeln('Максимальное: ',max,'  минимальное: ',min);
end.

Тестовое решение:
Введите количество чисел 5
23
12
44
10
15
Максимальное: 44  минимальное: 10

//Pascal ABC.NET v3.1 сборка 1172

//Продвинутый вариант

Var
 n:integer;
begin
 readln(n);
 writeln('Summary=',range(1,n).Where(x -> x mod 3=0).where(x -> x mod 10=2).Sum);
 writeln('Count=',range(1,n).Where(x -> x mod 3=0).where(x -> x mod 10=2).Count);
end.

//"Школьный" вариант
Var
 i,n,sum,co:integer;
begin
 readln(n);
 for i:=1 to n do
  if (i mod 3=0) and (i mod 10=2) then
   begin
    co:=co+1;
    sum:=sum+i;
   end;
 writeln('Summary=',sum);
 writeln('Count=',co);
end.

Пример ввода:
14
Пример вывода:
Summary=12
Count=1