Заполнить массив из 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

Question

Информатика

Федяйка

7 октября, 15:39

Заполнить массив из 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

+5

Ответы (1)

Знаете ответ на вопрос?

Вивиана · Answer 1

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]
end;

writeln (a[min], a[max]) ;

End.