Попытка 4!!! ДАЮ 50 БАЛЛОВ!!Заполнить массив( как на фото МНЕ НУЖЕН САМ АЛГОРИТМ!!!) из 10 элементов случайными числами в интервале [-10..10]и найти в нем два максимальных элемента и их номера ПРИМЕРИсходный массив: 4 -5 3 10 -...
Попытка 4!!! ДАЮ 50 БАЛЛОВ!!Заполнить массив( как на фото МНЕ НУЖЕН САМ АЛГОРИТМ!!!) из 10 элементов случайными числами в интервале [-10..10]и найти в нем два максимальных элемента и их номера
ПРИМЕР
Исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0
Максим.:а[4]=10, а[7]=8.
Гость
Ответ(ы) на вопрос:
ГостьPascalABC.NET 3.2, сборка 1382 от 06.02.2017
Внимание! Если программа не работает, обновите версию!
1. Заданный контрольный пример:
begin
var a:=Arr(4,-5,3,10,-4,-6,8,-10,1,0); a.Println;
var im1,im2:integer;
if a[im1]a[im1] then begin im2:=im1; im1:=i end
else
if a[i]>a[im2] then im2:=i;
WritelnFormat('a[{0}]={1}, a[{2}]={3}',im1+1,a[im1],im2+1,a[im2])
end.
Результат
4 -5 3 10 -4 -6 8 -10 1 0
a[4]=10, a[7]=8
2. Решение задания
begin
var a:=ArrRandom(10,-10,10); a.Println;
var im1,im2:integer;
if a[im1]a[im1] then begin im2:=im1; im1:=i end
else
if a[i]>a[im2] then im2:=i;
WritelnFormat('a[{0}]={1}, a[{2}]={3}',im1+1,a[im1],im2+1,a[im2])
end.
Пример
-1 10 -6 3 -4 -3 -4 7 0 -7
a[8]=7, a[4]=3
Не нашли ответ?
Похожие вопросы