Const m=5; n=6; type arr=array[1..m,1..n] of integer; procedure p1(var a:arr); var i,j:integer; begin for i:=1 to m do for j:=1 to n do a[i,j]:=random(51); end; procedure p2(var a:arr); var i,j:integer; begin for i:=1 to m do begin for j:=1 to n do write(a[i,j]:4); writeln; end; end; procedure p3(var a:arr); var i,j,s,max,min,jmax,jmin,c:integer; begin max:=0; min:=m*50*50; for j:=1 to n do begin s:=0; for i:=1 to m do s:=s+a[i,j]*a[i,j]; if s>max then begin max:=s; jmax:=j; end; if s<min then begin min:=s; jmin:=j; end; end; writeln('jmax = ',jmax,' jmin = ',jmin); for i:=1 to m do begin c:=a[i,jmax]; a[i,jmax]:=a[i,jmin]; a[i,jmin]:=c; end; end;
var b:arr; begin Randomize; p1(b); writeln('Исходный массив:'); p2(b); p3(b); writeln('Полученный массив:'); p2(b); end.
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=106.Step(6).Take(15).ToArray; a.Println
end.
Результат
106 112 118 124 130 136 142 148 154 160 166 172 178 184 190
2. Древнее школьное решение "в лоб"
var
a:array[1..15] of integer;
i,k:integer;
begin
k:=106;
for i:=1 to 15 do begin
a[i]:=k;
k:=k+6;
Write(a[i],' ')
end;
Writeln
end.
3. Усовершенствованное древнее школьное решение.
Последовательность - арифметическая прогрессия с первым членом a₁=106 и разностью d=6.
Тогда
var
a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 15 do begin
a[i]:=100+6*i;
Write(a[i],' ')
end;
Writeln
end.