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

uses crt; var a: array[1..1000] of integer; i,n,k: integer; beginclrscr; write('n< 1000, n='); read(n); writeln('a[i]< 30000, a[i]: '); for i: =1 to n dobeginreadln(a[i]); if (a[i] mod 10=3) then k: =k+1; end; write('k=',k); end.

Const   n=10; var   i,s: integer;   a: array[1..n] of integer; begin   randomize;   write('исходный массив: ');   s: =0;   for i: =1 to n do begin       a[i]: =random(15)+1;       write(a[i],' ');       if (a[i]> =i) and (a[i]< =i+1) then s: =s+a[i]       end;   writeln;   write('сумма элементов в заданном полуинтервале равна ',s) end. пример выполнения исходный массив: 8 9 8 12 10 3 8 1 10 2 сумма элементов в заданном полуинтервале равна 18

Var       best, m, s,i: integer; begin       best : = 10000000;       for i: = 1 to 3 do begin               write('min sec = ');               readln(m, s);               if best > m * 60 + s then best : = m * 60 + s;       end;             writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.