Спаскалем! нужно! 1. с клавиатуры вводится натуральное число n. найдите и выведете самую большую цифру этого числа. 2. массив целых чисел вводится до нуля. затем вводится число n. определите, какое количество раз число n встречается в массиве.

Программа выводит максимальную цифру числа: program maxx; uses crt; var x,max: integer; begin write('введите число   x='); readln(x); max: =0; while x> 0 do    begin           if max< (x mod 10) then max: =(x mod 10);             x: =x div 10   end; writeln('max=',max); end.

1. современное решение // pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! begin   var (a,b): =readinteger2('введите через пробел a и b: ');   writeln('s=',range(a,b).sum) end. пример введите через пробел a и b: 5 18 s=161 2. к сожалению, все еще часто типичный для школы вариант var   a,b,i,s: integer;   begin   write('введите через пробел a и b: ');   read(a,b);   s: =0;   for i: =a to b do       s: =s+i;   writeln('s=',s) end.

// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество элементов массива: ');   var x: =readreal('введите значение х для заполнения массива: ');   var a: =arrfill(n,x); a.println end. пример количество элементов массива: 13 введите значение х для заполнения массива: 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 begin   var n: =readinteger('количество элементов массива: ');   var x: =readinteger('введите начальное значение х для заполнения массива: ');   var a: =arrgen(n,i-> i+x); a.println end. пример количество элементов массива: 15 введите начальное значение х для заполнения массива: 8 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22