Задача. Задан массив, его характеристики заданы отдельно. Необходимо найти макси...

July 2022 1 3 Report

Задача. Задан массив, его характеристики заданы отдельно. Необходимо найти максимальное или минимальное значение элементов массива и сделать перестановку.

значения из таблицы:
1.Количество элементов в массиве
2.Интервал случайного числа
3.Найти Перестановка

Answers & Comments

LRSM

PascalABC.NET

Перестановка:

!Без каких-либо дополнительных переменных

begin
var a := ArrRandom(20, 10, 40);
Println(a);
a[a.IndexMax] += a[0];
a[0] := a.Max - a[0];
a[a.IndexMax] -= a[0];
Println(a);
end.

Замена:

!Тут уже проще переменную добавить

var max: integer;
begin
var a := ArrRandom(20, 10, 40);
Println(a);
max := a.Max;
a.Replace(a.Max, a[0]);
a[0] := max;
Println(a);
end.

Пояснение:

(20, 10, 40) - количество, интервалОТ, интервалДО.

Max(IndexMax) можно поменять на Min(IndexMin).

Ну а если первый = a[0], последний = a[количество-1].

Пример работ:

2 votes Thanks 1

LRSM Если нужны другие данные:
(20, 10, 40) - количество, интервалОТ, интервалДО.
Max(IndexMax) можно поменять на Min(IndexMin).
Ну а если первый = a[0], последний = a[количество-1].

najdite ctg ugla a pomogite kak mozhno skoree

Answer

Answers & Comments

PascalABC.NET

najdite ctg ugla a pomogite kak mozhno skoree

рекомендуемые вопросы

Helpful Links

Helpful Social