Дано целое число n и набор из n чисел. найдите номер первого наибольшего и номер последнего наименьшего числа в наборе. ввод целое число n и набор из n чисел в одной строке. вывод номер первого наибольшего и номер последнего наименьшего числа в наборе. ввод 10 4 3 1 7 9 1 9 2 5 6 вывод 5 6

235

307

Посмотреть ответы 3

Ответы на вопрос:

sashokko

Информатика

4,6(41 оценок)

Program z1; var a: array [1..100] of integer; i,n,max,min: integer; begin writeln ('vvedite n'); readln(n); max: =0; min: =1000; for i: =1 to n do begin readln a[i]; end; for i: =1 to n do begin if a[i]> max then max: =a[i] end; begin if a[i]> min then min: =a[i] end; writeln (max,min); end.

Нифи2005

Информатика

4,5(56 оценок)

Program bistro; var i,mi,ma,a1,a2,a,n: integer; begin read(n); mi: =1; ma: =1; read(a); a1: =a; a2: =a; for i: =2 to n do begin read(a); if a > a1 then begin ma: =i; a1: =a; end; if a < = a2 then begin mi: =i; a2: =a; end; end; writeln(ma,' ',mi); end.