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

[Arator]

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

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

 

[Arator]

Актуально!

 

[shrek=)]

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

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

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.

 

[Vladimir_S]

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