var
a: array[1..10, 1..10] of integer;
i, j, s: integer;
begin
s := 0;
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
a[i, j] := random(20) + 1;
write(a[i, j]:3);
if (j = 2) and (a[i, j] > 10) then s := s + a[i, j];
end;
writeln;
end;
writeln('Сумма элементов 2го столбца больших 10 равна', s);
end.
var
A: array[1..8] of integer;
i,k,t:integer;
begin
for i:=1 to 8 do
Readln(A[i]);
for k:= 8 downto 2 do
begin
for i:=1 to k-1 do
begin
if A[i+1] < A[i] then
begin
t:=A[i];
A[i]:=A[i+1];
A[i+1] := t;
end;
end;
end;
for i:=1 to 8 do
Write(A[i],' ');
readln;
end.
Тебе потребуется 5 разрядный двоичный код, т.к 2^5=32
В право. Робот іде лева на право!!