Программист, клавиатура, сканер.
Как я поняла нужны слова на буквы из слова СОСТАВ.
1)Сова
2)Остров
3)Самолет
4)Тарелка
5)Аквариум
6)Велосипед
Четырехзначное шестнадцатиричное число содержит четыре двоичные тетрады, старшая (левая) из которых может быть неполной. Наименьшее число будет иметь 1 в старшей тетраде и за ней должны следовать пять нулей. Получаем:
1 0000 0111 1111(2)=107F(16)
Const
maxn = 100;
type
myarr = array [1..maxn, 1..maxn] of longint;
var
a: myarr;
n, i, j, max, ini, c: longint;
begin
readln(n, m);
for i := 1 to n do begin
max := -maxInt;
for j := 1 to m do begin
read(a[i, j]);
if (a[i, j] > max) then begin
max := a[i, j];
ini := j;
end;
end;
c := a[i, i];
a[i, i] := max;
a[i, ini] := c;
end;
for := 1 to n do begin
for j := 1 to m do
write(a[i, j], ' ');
writeln;
end;
end.