Заполнить массив из 10 элементов случайными числами в интервале [-8;13] [-10;25] [98;101] [-5;15] и найти в нем максимальный и минимальный элементы и их номера. Пример: Исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0 максимальный a[...
Заполнить массив из 10 элементов случайными числами в интервале [-8;13] [-10;25] [98;101] [-5;15] и найти в нем максимальный и минимальный элементы и их номера. Пример: Исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0 максимальный a[4]=10 минимальный a[8]=-10
Гость
Ответ(ы) на вопрос:
Гостьvar a:array [1..10] of integer; min,max,i,c,b:integer; Begin read(c,b); randomize; for i := 1 to 10 do a[i]:= random(b) -c+1; min:=1; max:=1; for i:= 1 to 10 do begin if a[min]>a[i] then min:=i; if a[max]
Не нашли ответ?
Похожие вопросы