PascalABC.NET 3.2:
begin
Println('Исходный массив:');
var A := ArrRandom(30, -50, 50).Println;
var m := A.Max;
Println('Максимум равен', m);
Println('Изменённый массив:');
A.Select(x -> x + m).Println;
end.

Пример вывода:
Исходный массив:
-47 -34 -25 -42 -38 38 -32 42 21 -25 9 -41 -49 9 12 -3 37 38 20 -36 -42 42 37 6 37 -41 -44 -19 23 8
Максимум равен 42
Изменённый массив:
-5 8 17 0 4 80 10 84 63 17 51 1 -7 51 54 39 79 80 62 6 0 84 79 48 79 1 -2 23 65 50

0 0

1 год назад

В программе описан одномерный целочисленный массив с индексами от 0 до 10. В приведенном ниже фрагменте программы сначала заполн

lentik [8.1K]

3) все элементы окажутся равны 1

0 0

4 года назад

Четыре яхты плывут по реке (две навстречу другим двум). Они встретились в том месте, где речка такая узкая что двум яхтам размин

duratskaya

2 яхты по затоке в одну сторону, 2 яхты по узкой реке в другую. Друг за другом, то есть.

0 0

4 года назад

Прочитать ещё 2 ответа

Отметь истинные высказывания о текущем времени зная что венчики цикория закроются в 10 часов

pinzari73

T >= 6 - ложно, например 11
t < 9 - ложно, например 9.30
t >= 9 - ложно, например 11
t >= 10 - ложно, например 11
t < 10 - истинно
(t >= 6) и (t < 10) - ложно, например 5

0 0

4 года назад