ПОМОГИТЕ С ИНФОРМАТИКОЙ,ПОЖАЛУЙСТА. (СОСТАВИТЬ ПРОГРАММУ PASCAL)
1) Массив на 10 элементов, заменить случайными числами из диапазона от 0 до 15. Найти кол-во элементов равных max.
2) найти в массиве на 20 элементов, заполненных случайными числами {0;150}. max и min. И поменять местами)))
Ответы
Ответ дал:
0
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,0,15); a.Println;
var max:=a.Max;
Write('Максимальный элемент ',max);
Write(', элементов, равных ему - ',a.Where(x->x=max).Count-1)
end.
Пример
7 15 8 1 15 13 6 15 5 11
Максимальный элемент 15, элементов, равных ему - 2
--------------
begin
var a:=ArrRandom(20,0,150); a.Println;
var (imin,imax):=(a.IndexMin,a.IndexMax);
Writeln('Минимальный элемент ',a[imin],', максимальный ',a[imax]);
Swap(a[imin],a[imax]); a.Println
end.
Пример
131 123 150 38 146 59 69 12 66 44 130 138 29 32 122 25 134 6 143 127
Минимальный элемент 6, максимальный 150
131 123 6 38 146 59 69 12 66 44 130 138 29 32 122 25 134 150 143 127
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,0,15); a.Println;
var max:=a.Max;
Write('Максимальный элемент ',max);
Write(', элементов, равных ему - ',a.Where(x->x=max).Count-1)
end.
Пример
7 15 8 1 15 13 6 15 5 11
Максимальный элемент 15, элементов, равных ему - 2
--------------
begin
var a:=ArrRandom(20,0,150); a.Println;
var (imin,imax):=(a.IndexMin,a.IndexMax);
Writeln('Минимальный элемент ',a[imin],', максимальный ',a[imax]);
Swap(a[imin],a[imax]); a.Println
end.
Пример
131 123 150 38 146 59 69 12 66 44 130 138 29 32 122 25 134 6 143 127
Минимальный элемент 6, максимальный 150
131 123 6 38 146 59 69 12 66 44 130 138 29 32 122 25 134 150 143 127
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад