Pascal.Помогите пожалуйста с задачкой)Дан 1-мерный массив А(N), где N – заданное натуральное число. Массив получен методом генерирования случайных чисел. Заменить нулями элементы массива между минимальным и максимальным, кроме ...
Pascal.Помогите пожалуйста с задачкой)
Дан 1-мерный массив А(N), где N – заданное натуральное число. Массив получен методом генерирования случайных чисел. Заменить нулями элементы массива между минимальным и максимальным, кроме них самих. Распечатать полученный массив.
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,10,99); a.Println;
var imin:=0;
var imax:=0;
for var i:=1 to n-1 do
if a[i]>a[imax] then imax:=i
else
if a[i]
Не нашли ответ?
Похожие вопросы