// PascalABC.NET 3.1, сборка 1192 от 07.03.2016 begin var n:=ReadInteger('n='); var a:=ArrRandom(n,10,50); a.Println; var min:=a.Min; a:=a.Select(x->x-min).ToArray; a.Println end.
#include <iostream> using namespace std; int main() { int i, n, imin = 0; cin >> n; int a[n]; for (i = 0; i < n; i++) cin >> a[i]; for (i = 0; i < n; i++) if (a[i] < a[imin]) imin = i; for (i = 0; i < n; i++) cout << a[i] - a[imin] << " "; }
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,10,50); a.Println;
var min:=a.Min;
a:=a.Select(x->x-min).ToArray; a.Println
end.
Тестовое решение:
n= 15
17 45 42 15 28 32 33 13 17 26 21 44 37 12 32
5 33 30 3 16 20 21 1 5 14 9 32 25 0 20
#include <iostream>
using namespace std;
int main()
{
int i, n, imin = 0;
cin >> n;
int a[n];
for (i = 0; i < n; i++)
cin >> a[i];
for (i = 0; i < n; i++)
if (a[i] < a[imin]) imin = i;
for (i = 0; i < n; i++)
cout << a[i] - a[imin] << " ";
}