Дан массив из 10 целых чисел, заполняемый с клавиатуры. Найти наибольшее значение элемента массива и его номер.
Дан массив из 10 целых чисел. Поменять местами набольший и наименьший элементы массива.
Дан массив из 24 целых чисел. Заменить все элементы между максимальным и минимальным, кроме их самих, на 0.
Решите пожалуйста все эти программы на языке Паскаля, очень надо
Дан массив из 10 целых чисел. Поменять местами набольший и наименьший элементы массива.
Дан массив из 24 целых чисел. Заменить все элементы между максимальным и минимальным, кроме их самих, на 0.
Решите пожалуйста все эти программы на языке Паскаля, очень надо
Answers & Comments
Ответ:
begin
var n: array of integer;
setlength(n,11);
writeln('Введите содержимое массива:');
for var l:= 1 to n.high do read(n[l]);
writeln('Наибольшее значение: ',n.max,' его номер: ',n.lastindexmax);
end.
begin
var n:= ArrRandomInteger(10,1,99);
writeln('Исходный массив: ',n);
var A:=n[n.High];
n[n.High]:=n[n.Low];
n[n.Low]:=A;
writeln('Полученный массив: ',n);
end.
begin
var n:= ArrRandomInteger(24,1,99);
writeln('Исходный массив: ',n);
for var l:=n.Low+1 to n.High-1 do n[l]:=0;
writeln('Полученный массив: ',n);
end.