Уваси в электронном ящике 10 музыкальных файлов, а у коли 5. вася один из файлов отправил по электронной почте коле. сколько музыкальных файлов стало в электронных ящиках у васи и у коли, если коля ещё не смотрел свой ящик?
2) Сортирую не методом выбора, а пузырьковым методом, т.к. мне неизвестна формулировка "метод выбора" program z1; var mas:array[1..10] of Integer; m,n,temp:integer; begin randomize; for i:=1 to 10 do begin mas[i]:=random(100); end; for i:=1 to 4 do if mas[i]>mas[i+1] then begin temp:=mas[i+1]; mas[i+1]:=mas[i]; mas[i]:=temp; end; for i:=6 to 9 do if mas[i]<mas[i+1] then begin temp:=mas[i+1]; mas[i+1]:=mas[i]; mas[i]:=temp; end; end.
Если нужен еще и вывод на экран - то дописываете перед end. следующее: for i:=1 to 10 do writeln(mas[i])
Насчет первого. Мне непонятна формулировка "отсортировать по последней цифре"
Var i,j:integer; mas:array [1..10] of integer; begin randomize; for i:= 1 to 10 do mas[i]:=random(101); for j:=1 to 10-1 do for i:=1 to 10-j do if mas[i] mod 10 > mas[i+1] mod 10 then swap(mas[i],mas[i+1]); for i:=1 to 10 do writeln(mas[i]); end. 2) var a:array[1..10] of Integer; i,j:Integer; begin randomize; for i:=1 to 10 do a[ i]:=random(101); for i:=1 to 4 do for j:=i+1 to 5 do if a[ i] > a[ j] then swap(a[i],a[j]); for i:=5 to 9 do for j:=i+1 to 10 do if a[ i] < a[ j] then swap(a[i],a[j]);; for i:=1 to 10 do write(a[ i],' '); end.
