Номер большего из четырех введенных чисел

[JIuc666]

С массивом короче в 2 раза =)))

[vovk]

Сообщение от odisseyb

эта ваще не работает..

вот по другому написал без массива:


var x1, x2, x3, x4: integer;
begin
read(x1);
read(x2);
read(x3);
read(x4);
if (x1>=x2)and(x1>=x3)and(x1>=x4) then write('№ 1');
if (x2>=x1)and(x2>=x3)and(x2>=x4) then write('№ 2');
if (x3>=x1)and(x3>=x2)and(x3>=x4) then write('№ 3');
if (x4>=x1)and(x4>=x2)and(x4>=x3) then write('№ 4');
end.

только все равно чет не то..

и что же у меня там не работает?

[Shift_sk]

Сообщение от odisseyb

эта ваще не работает..

вот по другому написал без массива:


var x1, x2, x3, x4: integer;
begin
read(x1);
read(x2);
read(x3);
read(x4);
if (x1>=x2)and(x1>=x3)and(x1>=x4) then write('№ 1');
if (x2>=x1)and(x2>=x3)and(x2>=x4) then write('№ 2');
if (x3>=x1)and(x3>=x2)and(x3>=x4) then write('№ 3');
if (x4>=x1)and(x4>=x2)and(x4>=x3) then write('№ 4');
end.

только все равно чет не то..

во первых равно убери!
во вторых
если у тебя будет 100 чисел то мне тебя жалко)писать для каждого 100 условий и в них по 99 проверок)

[Mad_Cat]

так пойдет?

x:real;
i,k:integer;
m:real;
begin
k:=1;
read(m);
for i:=2 to 4 do
begin
read(x);if x>m then begin m:=x;k:=i;end;
end;
writeln('max N',k,'=',m);
end.

и чем отличается от того что я написал?

как то проморгал я ваш пост с решением(

[vovk]

Сообщение от Mad_Cat

так пойдет?

x:real;
i,k:integer;
m:real;
begin
k:=1;
read(m);
for i:=2 to 4 do
begin
read(x);if x>m then begin m=x;k:=i;end;
end;
writeln('max N',k,'=',m);
end.

и чем отличается от того что я написал? кстати опечатка

read(x);if x>m then begin m:=x;k:=i;end;