ЗАПОЛНИТЕ СЛУЧАЙНЫМИ ЧИСЛАМИ ЧЕЛОЧИСЛЕННЫЙ МАССИВ ИЗ 10 элементов.найти максимальный элемент массива и заменить его на число 0 Составьте задачу, пожалуйста
ЗАПОЛНИТЕ СЛУЧАЙНЫМИ ЧИСЛАМИ ЧЕЛОЧИСЛЕННЫЙ МАССИВ ИЗ 10 элементов.найти максимальный элемент массива и заменить его на число 0
Составьте задачу, пожалуйста
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.0, сборка 1088
begin
var a:=ArrRandom(10,-20,20);
a.Println(',');
var m:=a.Max;
for var i:=0 to 9 do
if a[i]=m then a[i]:=0;
a.Println(',')
end.
Тестовое решение:
-14,-7,15,-7,-11,7,4,1,-20,-15
-14,-7,0,-7,-11,7,4,1,-20,-15
Не нашли ответ?
Похожие вопросы