Даны натуральное число x и целые числа a₁, a₂,..., aₓ. Найти:
а) номер максимального из чисел aₓ. Если чисел с максимальным значением несколько, то должен быть найден номер последнего из них;
б) номер минимального из чисел aₓ. Если чисел с минимальным значением несколько, то должен быть найден номер первого из них.
Выполнить в программе Pascal ABC.
а) номер максимального из чисел aₓ. Если чисел с максимальным значением несколько, то должен быть найден номер последнего из них;
б) номер минимального из чисел aₓ. Если чисел с минимальным значением несколько, то должен быть найден номер первого из них.
Выполнить в программе Pascal ABC.
More Questions From This User See All
Answers & Comments
Verified answer
//Pascal ABC.NET v3.1 сборка 1172//1
Var
i,x,max,n,maxi:integer;
begin
max:=-32768;
readln(x);
i:=0;
while i<>x do
begin
i:=i+1;
readln(n);
if n>=max then
begin
max:=n;
maxi:=i;
end;
end;
writeln(maxi);
end.
Пример ввода:
3
1
2
2
Пример вывода:
3
//2
Var
i,x,min,n,mini:integer;
begin
min:=32767;
readln(x);
i:=0;
while i<>x do
begin
i:=i+1;
readln(n);
if n<min then
begin
min:=n;
mini:=i;
end;
end;
writeln(mini);
end.
Пример ввода:
3
1
1
2
Пример вывода:
1