все элементы заданного одномерного массива уменьшить на величину равную наименьшему элементу данного массива.(ПАСКАЛЬ)
Ответы
Ответ дал:
0
var a: array[1..100] of integer; n, min, i: integer;
begin
readln(n);
for i := 1 to n do
read(a[i]);
min := a[1];
for i := 2 to n do
if min > a[i] then
min := a[i];
for i := 1 to n do
a[i] := a[i] - min;
for i := 1 to n do
write(a[i], ' ');
end.
begin
readln(n);
for i := 1 to n do
read(a[i]);
min := a[1];
for i := 2 to n do
if min > a[i] then
min := a[i];
for i := 1 to n do
a[i] := a[i] - min;
for i := 1 to n do
write(a[i], ' ');
end.
Ответ дал:
0
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
var a:=ArrRandom(ReadInteger('n='),10,99);
a.Println;
var m:=a.Min;
for var i:=0 to a.Length-1 do a[i]-=m;
a.Println
end.
Тестовое решение:
n= 13
90 37 52 21 77 74 75 75 43 98 92 16 90
74 21 36 5 61 58 59 59 27 82 76 0 74
begin
var a:=ArrRandom(ReadInteger('n='),10,99);
a.Println;
var m:=a.Min;
for var i:=0 to a.Length-1 do a[i]-=m;
a.Println
end.
Тестовое решение:
n= 13
90 37 52 21 77 74 75 75 43 98 92 16 90
74 21 36 5 61 58 59 59 27 82 76 0 74
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад