Заполните массив из 10 элементов случайными числами в интервале [-10..10] и найти в нём максимальный и минимальный элементы и их номера исходный массив : 4 -5 3 10 -4 -6 8 - 10 1 0 максимальный а[4]=10 минимальный a[8]= 10
Заполните массив из 10 элементов случайными числами в интервале [-10..10] и найти в нём максимальный и минимальный элементы и их номера
исходный массив : 4 -5 3 10 -4 -6 8 - 10 1 0
максимальный а[4]=10 минимальный a[8]= 10
Гость
Ответ(ы) на вопрос:
Гостьvar
a:array[1..10] of integer;
i,max,min:integer;
begin
max:=-11;
min:=11;
for i:=1 to 10 do a[i]:=-10+random(20);
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=1 to 10 do
if a[i]>max then max:=a[i];
for i:=1 to 10 do
if a[i]
Гость// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-10,10); a.Println;
var imax:=a.IndexMax;
var imin:=a.IndexMin;
Writeln('максимальный а[',imax+1,']=',a[imax],
', минимальный a[',imin+1,']=',a[imin])
end.
Пример
-9 7 -2 5 -10 -6 -9 -6 3 1
максимальный а[2]=7, минимальный a[5]=-10
Не нашли ответ?
Похожие вопросы