Цитата:
Сообщение от Arator
Помогите решить пожалуйста ...
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.