1) var a:array[1..100,1..100] of Real; i,j:integer; n,m:integer; begin write('Rows='); readln(n); write('Cols='); readln(m); for i:=1 to n do begin for j:=1 to 2 do begin write('[',i,',',j,']='); readln(a[i,j]); end; For j:=3 to m do a[i,j]:=a[i,j-1]+a[i,j-2]; end; For i:=1 to n do begin for j := 1 to m do write (a[i,j]:8:3); writeln; end; readln; end. 2) var a:array[1..6,1..3] of Real; i,j:integer; begin Randomize; for i:=1 to 6 do begin j:=1; a[i,1]:=sqr(i+j); a[i,2]:=random(18)-9; a[i,3]:=a[i,1]/2+a[i,2]/2; For j:=1 to 3 do write(a[i,j]:8:1); writeln; end; readln; end. Но это на языке паскаль я фиг знает какой тебе нада тут два варианта
Var a,i,j,b,p,p1:longint; m:array[0..501] of longint; procedure qsort(l,r:longint); var q,w,i,j,p:longint; begin q:=m[(l+r) div 2]; repeat while m[i]<q do inc(i); while m[j]>q do dec(j); if i<j then begin w:=m[i]; m[i]:=m[j]; m[j]:=w; inc(i); dec(j);inc(p); end; if i=j then begin inc(i);dec(j); end; until i>j; if i<r then qsort(i,r); if j<l then qsort(l,j); p1:=p; end; begin for i:=1 to 500 do m[i]:=random(100); for i:=1 to 500 do for j:=500 downto i+1 do if m[j]<m[i] then begin a:=m[j]; m[j]:=m[i]; m[i]:=a; inc(p); end; writeln(p); qsort(1,500); writeln(p1); end.
Объяснение:
Незнаю бро