В массиве определить номер максимального элемента
program f281;
var a:array[1..5] of integer;
max,n,i:integer;
begin
for i:=1 to 5 do begin
read (a[i]);end;
max:=a[1];n:=1;
for i:=2 to 5 do begin
if a[i]>max then max:=a[i];n:=i;
end;
writeln(n);
end.
Тегами не забываем пользоваться...
Сообщение отредактировано: volvo -