//Pascal ABC.NET v3.1 сборка 1219
Const
n=15;
Var
ar:array[1..n] of integer;
pro,i,k:uint64;
begin
randomize;
pro:=1;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(22,23); //Серьёно?
write(ar[i]:4);
pro:=pro*ar[i];
end;
writeln;
writeln('Pro=',pro);
write('Enter value:');
readln(k);
writeln('Final array:');
for i:=1 to n do
begin
ar[i]:=ar[i]+k;
write(ar[i]:6);
end;
end.
Пример работы программы:
First array:
23 23 22 22 22 22 23 23 23 22 23 22 22 23 23
Pro=10868183115618730368
Enter value:3
Final array:
26 26 25 25 25 25 26 26 26 25 26 25 25 26 26
На входе кол-во строк и столбцов. Массив заполняем вручную.
var a:array [,] of integer;
b,k,i,j,N,M:integer;
BEGIN
read(N,M);
b:=maxint;
a:=new integer[N,M+1];
for i:=0 to N-1 do begin
for j:=0 to M-1 do begin
read(a[i,j]);
if a[i,j]<=b then begin
b:=a[i,j];
k:=j;
end;
end;
end;
for i:=N-1 downto 0 do
for j:=M downto k+2 do
swap(a[i,j],a[i,j-1]);
for i:=0 to N-1 do begin
for j:=0 to M do
write(a[i,j],' ');
writeln();
end;
end.
WinRaR Архиватор, например :)
Или Hamster Lite :)
Ставь обычную express или professional