Uses Crt;
procedure MinMax(a,b:integer; var min,max:integer);
begin
if a>b then begin max:=a; min:=b end
else begin max:=b; min:=a end
end;
var
x,y,mx,mn:integer;
begin
ClrScr;
Write('a,b= '); Read(x,y);
MinMax(x,y,mn,mx);
Writeln('min=',mn,', max=',mx);
ReadKey
end.
<em><u>Тестовое решение:</u></em>
a,b= 163 97
min=97, max=163
USES CRT;
VAR m1,m2,n,n1,n2,n3,n4,n5,n6,s1,s2:LongInt;
BEGIN
ClrScr;
WriteLn('Vvedite nomer bileta: ');
ReadLn(n);
m1:=n div 1000;
n1:=m1 div 100;
n2:=m1 mod 10;
n3:=(m1-n1*100-n2) div 10;
s1:=n1+n2+n3;
m2:=n mod 1000;
n4:=m2 div 100;
n5:=m2 mod 10;
n6:=(m2-n4*100-n5) div 10;
s2:=n4+n5+n6;
if s1=s2 then WriteLn('Bilet schaslivyi')
else WriteLn('Bilet ne schaslivyi');
ReadLn
END.
Если М это переменная,хранящая номер максимального элемента, то фрагмент программы получится следующий
Ваше условие(if X[k]>X[M] then )
M = k
Пояснение:
если X[k](текущий) больше, чем Х[M](максимального элемента) то
М = к: присвоить М значение К, т.е. назначить Х[k] максимальным.
58 задание.
первая таблица
0 1 1 1 1
0 1 1 0 1
0 1 0 1 1
1 0 0 0 0
вторая таблица
0. 1. 1. 1. 1
1. 0. 1. 0. 0
1. 0. 0. 1. 0
1. 0. 0. 0. 0