заполните массив из 10 элементов случайными числами в интервале [-10..10] и
Заполните массив из 10 частей случайными числами в промежутке [-10..10] и отыскать в нём наибольший и минимальный элементы и их номера
начальный массив : 4 -5 3 10 -4 -6 8 - 10 1 0
максимальный а[4]=10 минимальный a[8]= 10
2 ответа
Алла Фейзуллина
// 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
// Внимание! Если программка не работает, обновите версию!
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
Константин Шарабурин
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]gt;max then max:=a[i];
for i:=1 to 10 do
if a[i]lt;min then min:=a[i];
writeln('max: ', max);
writeln('min: ', min);
end.
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]gt;max then max:=a[i];
for i:=1 to 10 do
if a[i]lt;min then min:=a[i];
writeln('max: ', max);
writeln('min: ', min);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Облако тегов