Var i,j,k,p:integer; a:array[1..8,1..8]of integer; begin writeln('Исходный массив:'); for i:=1 to 8 do begin for j:=1 to 8 do begin a[i,j]:=random(20); write(a[i,j]:3) end; writeln end; for i:= 1 to 8 do for j:= 1 to 8 do for k:= 1 to 8 do begin if i mod 2=0 then begin if (a[i,j]<a[i,k]) then begin p:=a[i,j]; a[i,j] := a[i,k]; a[i,k] := p end end else if a[i,j] > a[i,k] then begin p:=a[i,j]; a[i,j] := a[i,k]; a[i,k] := p end end; writeln('Преобразованный массив:'); for i:=1 to 8 do begin for j:=1 to 8 do write(a[i,j]:3); writeln end; end.
2 а) INPUT "Ширина первого прямоугольника";A1 INPUT "Длина первого прямоугольника";B1 INPUT "Ширина второго прямоугольника";A2 INPUT "Длина второго прямоугольника";B2 IF A1/A2=B1/B2 THEN PRINT "Фигуры подобны" ELSE PRINT "Нет подобия"
