Var a:array[1..1000] of integer;
n,i,im,max:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
writeln;
max:=a[1];im:=1;
for i:=1 to n do
if a[i]>max then
begin
max:=a[i];
im:=i;
end;
a[1]:=a[1]+a[im];
a[im]:=a[1]-a[im];
a[1]:=a[1]-a[im];
for i:=1 to n do
write(a[i],' ');
end.
Выбираем точку.от этой точки проводим вниз по горизонтали линию с одной и другой стороны.с низу строим прямоугольник. в этом прямоугольнике по середине строим ещё один но посменьше.домик готов точно так же только 5
//Если число дано через пробелы(как в условии: 1 234 567)
begin
var a := ReadInteger;
var b := ReadInteger mod 100;
var c := b div 10;
b := b mod 10;
ReadInteger;
Writeln(a + b + c);
end.
Пример:
1 234 567
8
//Если число дано строкой
begin
var a := ReadString;
var b := new Integer[a.Length];
for var i := 1 to a.Length do
b[i - 1] := a[i].ToDigit;
Writeln(b[0] + b[2] + b[3]);
end.
<u>Пример:</u>
6894354
19
Переведём минуты в секунды: 2 минуты, 8 секунд = 128 секунд
Узнаем вес текста, который скачал Петя: 16 × 128 = 2048 килобайт
Один символ в кодировке ASCII весит 1 байт
2048 килобайт = 2048 × 1024 = 2097152 байт
Значит Петя передал 2097152 символа в сообщении.