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

Информатика

Тюня

20 сентября, 08:08

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

Ответы (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.