Var i,j,t,x:integer; a:array[1..10]of integer; begin writeln('Исходный массив:'); for i:=1 to 10 do begin a[i]:=random(-100,100); write(a[i]:5) end; i:=2; while i<11 do begin t:=a[i]; a[i]:=a[i-1]; a[i-1]:=t; i:=i+2 end; writeln; writeln('Переставленный массив:'); for i:=1 to 10 do begin write(a[i]:5); if a[i] mod 2=0 then x:=x+1 end; writeln; writeln('Четных элементов: ',x); //Гномья сортировка i:= 2; j:= 3; while i < 11 do if a[i - 1] > a[i] then begin i:= j; j:= j + 1 end else begin t:= a[i - 1]; a[i - 1]:= a[i]; a[i]:=t; i:= i - 1; if i = 1 then begin i:= j; j:= j + 1 end end; writeln('Отсортированный массив:'); for i:=1 to 10 do write(a[i]:5) end.
begin Randomize; for i := 1 to n do for j := 1 to n do X[i,j] := Random(100); for i := 1 to n do begin IndMax := 1; max :=X[i,1]; for j := 2 to n do begin if X[i,j]>max then begin max := X[i,j]; //Наибольший элемент строки с номером i IndMax := j; //Столбец, в котором находится наибольший элемент строки //с номером i end; end; //Смена элементов X[i,IndMax] := X[i,i]; X[i,i] := max; end; end;
Решение на языке Python:
div - это "//"
mod - это "%"
print(24 // 7)print(156 % 12)print((1256 // 7) % 5)