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)

Распечатать массив до и после ранжирования.

Question

Информатика

Трофима

3 мая, 10:05

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)

Распечатать массив до и после ранжирования.

+5

Ответы (1)

Знаете ответ?

Романя · Answer 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]
end;

writeln (min) ;

end.

2)

uses Crt;

var

A : array [ 1 ... 100 ] of integer;

c : integer;

i, j, N : ShortInt;

begin

ClrScr;

Write ('Количество элементов массива = ') ;

ReadLn (N) ;

WriteLn ('Ввод массива') ;

for i : = 1 to N do

Read (A [ i ]) ;

A[i]:=abs (A[i]) ;

WriteLn;

//Сортировка пузырьком//

for i : = 1 to N - 1 do begin

for j : = N downto i + 1 do begin

if A [ j ] < A [ j - 1 ]

then

begin

c : = A [ j ]; A [ j ] : = A [ j - 1 ]; A [ j - 1 ] : = c;

end;

end;

end;

for i:=n-2 to n do writeln (A[i]) ;

end.