Язык : PascalABC. NET
program number1;
const
L =31;
var
a : array[1..L] of shortint;
k : shortint;
begin
randomize;
for i : byte := 1 to L do
a[i] := random(-10, 10);
k :=0;
for i : byte := 10 to 20 do
k := k + a[i];
writeln(k);
end.
<span>Ответ:В режиме истинного цвета: 6000,
При кодировании с палитрой 256 цветов- 2000,
При кодировании с палитрой 16 цветов- 1000,
В черно-белом варианте 250</span>
образуются пары родителей:
655-861 (1 реб) подходит
323-354 (1 реб) не подходит
293-238 (1 реб) не подходит
654-960 (2 реб) подходит
941-365 (2реб) не подходит
1+2=3
Решение №1
var x,y:integer;
begin
readln(x,y);
if x> y then begin
x:=x+y;
y:=x-y;
x:=x-y;
writeln(x,' ',y);
end.
Тестовое решение:
8 5
5 8
Решение №2
На PascalABC.Net можно сделать проще:
var x,y:integer;
begin
readln(x,y);
if x>y then begin swap(x,y); println(x,y); end;
end.