Технический форум - Две задачи с массивами в Паскале

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Две задачи с массивами в Паскале (http://www.tehnari.ru/f41/t73546/)

Две задачи с массивами в Паскале

Помогите решить пожалуйста ...
1) Создать массив случайных трехзначных целых чисел (N <= 30). Найти наибольшую цифру каждого числа. Использовать рекурсивную функцию нахождения наибольшего цифры числа.
2) Создать массив случайных четырехзначных целых чисел (N <= 30). Найти число, которое содержит наибольшее количество нулей. Использовать рекурсивную функцию нахождения количества нулей числа

Цитата:

Сообщение от Arator (Сообщение 735117)

Вот пожалуйста:

Код:

const n=15;

var

m:array [1..n] of integer;

i:integer;

function max(a:integer):integer;

var

b,c,d:integer;

begin

b:=(a div 100) mod 10;

c:=(a div 10) mod 10;

d:=a mod 10;

if (d>b) and (d>c) then max:=d else

if (b>d) and (b>d) then max:=b else

if (c>d) and (c>d) then max:=c;

end;

begin

randomize;

for i:=1 to n do begin

m[i]:=random(900);

writeln (m[i],' - ',max(m[i]));

end;

readln

end.

Э-э, Миша - так то что, так то и я могу! А вот ты с рекурсивными функциями сделай!
P.S. Между прочим, поскольку числа должны быть трехзначными, то задавать выборку надо так: m[i]:=100+random(900);, что соответствует диапазону 100..999.