Дано 4-ох и 3-ох значные числа, среди цифр 4-ох значного найти максимальное, среди 3-ох минимальное, получить их числовой код.
нет просто получить наверное буквенный код я просто после экзаменов не в состоянии их решить, вот и просил помочь, решается скорее всего через масив одномерный(
извиняюсь символьный!
не обязательно, просто нахадишь с помощью div'а и mod'а макс и мин цифру и печатаешь ее
я знаю каким образом через див и мод а можно через масив?
Найти его минемальны и максимальный элементы и сопоставить их.
просто я не знаю как найти мах и мин элеенты.
Благодаря Client`y решил эту задачу вот код:
uses crt;
var
a:array [1..4] of integer;
b:array [1..3] of integer;
c,d,i:integer;
g:char;
begin
clrscr;
for i:=1 to 4 do
readln (a[i]);
for i:=1 to 4 do
begin
c:=a[i];
if a[i]>c then c:=a[i]
end;
for i:=1 to 3 do
readln (b[i]);
for i:=1 to 3 do
begin
d:=b[i];
if b[i]<d then d:=b[i]
end;
if c>d then g:=chr(d) else g:=chr©;
writeln (g);
end.
Не a[i] a a[1] Исправь
....
ReadLn(a); m:=0;
while a>0 do begin
if (a mod 10)>m then m:=a mod 10;
a:=a div 10;
end;