Даны натуральное число x и целые числа a₁, a₂,..., aₓ. Найти: а) номер максимального из чисел aₓ. Если чисел с максимальным значением несколько, то должен быть найден номер последнего из них; б) номер минимального из чисел aₓ. Если чисел с минимальным значением несколько, то должен быть найден номер первого из них. Выполнить в программе Pascal ABC.
//Pascal ABC.NET v3.1 сборка 1172//1Var i,x,max,n,maxi:integer;beginmax:=-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.Пример ввода:3122Пример вывода:3//2Var i,x,min,n,mini:integer;beginmin:=32767;readln(x);i:=0; while i<>x do begin i:=i+1; readln(n); if n
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Даны натуральное число x и целые числа a₁, a₂,..., aₓ. Найти: а) номер максимального из чисел aₓ. Если чисел с максимальным значением несколько, то должен быть найден номер последнего из них; б) номер минимального из чисел aₓ. Если чисел с минимальным значением несколько, то должен быть найден номер первого из них. Выполнить в программе Pascal ABC.» от пользователя МАДИНА БОРЩ в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!