1.найти минимальный по модулю элемент массива x= 2 1 0 -1 0 2 1 0 3 -2 2 0 2. Используя программу ранжирования, найти сумму 3-х наибольших по модулю элементов массива: T=(-1,2,1,1,-4,0,2,5,3,-2,1) Распечатать массив до и...
1.найти минимальный по модулю элемент массива
x= 2 1 0 -1
0 2 1 0
3 -2 2 0
2. Используя программу ранжирования, найти сумму 3-х наибольших по модулю элементов массива:
T=(-1,2,1,1,-4,0,2,5,3,-2,1)
Распечатать массив до и после ранжирования.
Гость
Ответ(ы) на вопрос:
Гость1)program test;
var
a:array[1..12] of integer;
i,min:integer;
begin
for i:=1 to 12 do begin
readln(a[i]);
a[i]:=abs(a[i]);
if i=1 then min:=a[i]
else if a[i]
Не нашли ответ?
Похожие вопросы