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

[odisseyb]

Помогите пожалуйста, только начинаю программировать, не могу задачу решить :

Выведите на экран номер большего из четырех введенных чисел (1, 2, 3 или 4).

program zadacha;
uses crt;
var a, b, c, d, bol, bol2: real;
begin;
clrscr;
writeln('введите четыре числа');
read(a, b, c, d);
if a>b then bol:=a else bol:=b;
if c>d then bol2:=c else bol2:=d;
if bol>bol2 then writeln('большее число-',bol) else writeln('большее число-',bol2);
readkey;
end.

(я не понимаю как присвоить букве номер)

[Hacker19_90]

Что конкретно не получается?? Покажите нароботки!

[Shift_sk]

var a:array[1..4] of integer;max,i:integer;
begin
for i:=1 to 4 do
read(a[i]);
max:=a[1];
for i:=2 to 4 do begin
if max<a[i] then max:=a[i];
end;
writeln(max);
end.

[odisseyb]

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

var a:array[1..4] of integer;max,i:integer;
begin
for i:=1 to 4 do
read(a[i]);
max:=a[1];
for i:=2 to 4 do begin
if max<a[i] then max:=a[i];
end;
writeln(max);
end.

но так оно опять показывает само число, а не номер

[Shift_sk]

var a:array[1..4] of integer;nmax,max,i:integer;
begin
for i:=1 to 4 do
read(a[i]);
max:=a[1];
nmax:=1;
for i:=2 to 4 do begin
if max<a[i] then begin nmax:=i; max:=a[i];
end;
end;
writeln(nmax);
end.

вот смотри доделал!

[odisseyb]

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

вот смотри доделал!

во спасибо большое), осталось только понять)

[Shift_sk]

все очень проста мы содаем масив на 4 элемента!
затем 1 элементу присваиваем максимум!
и когда циклом фор идем по массиву сравниваем мак с каждым элементом!если макс меньше ,то максу присваиваем данный элемент и запоминаем этот номер! в конце выводим элемент!

[vovk]

a зачем массив?

program halyava;
uses crt;
var
ha,ly,a,va:integer;
begin
a:=1;
va:=low(integer);
for ha:=1 to 4 do
begin
clrscr;
writeln('vvedite chislo N ',ha,'  iz 4');
readln(ly);
if ly > va then
begin
a:=ha;
va:=ly;
end;
end;
clrscr;
writeln('naibolshee cislo eto cislo N',a, ' ono ravno ',va );

readln
end.

[Shift_sk]

можно и так...много способов существует!

[odisseyb]

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

a зачем массив?

program halyava;
uses crt;
var
ha,ly,a,va:integer;
begin
a:=1;
va:=low(integer);
for ha:=1 to 4 do
begin
clrscr;
writeln('vvedite chislo N ',ha,'  iz 4');
readln(ly);
if ly > va then
begin
a:=ha;
va:=ly;
end;
end;
clrscr;
writeln('naibolshee cislo eto cislo N',a, ' ono ravno ',va );

readln
end.

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

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

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.

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