Const
n=15;
var
a:array[1..n] of integer;
i,t:integer;
begin
Randomize;
Writeln('Исходный массив');
for i:=1 to n do begin
a[i]:=Random(50)+10;
Write(a[i]:3)
end;
Writeln;
for i:=1 to n div 2 do
begin t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t end;
Writeln('Результирующий массив');
for i:=1 to n do Write(a[i]:3);
Writeln;
end.
Пример
Исходный массив
25 19 47 34 22 54 52 11 40 13 25 47 29 50 58
Результирующий массив
58 50 29 47 25 13 40 11 52 54 22 34 47 19 25
Var a, b, c: integer;
function max(a, b : integer) : integer;
begin
if a>b then max:=a
else max:=b;
end;
begin
readln(a, b, c);
writeln(max(max(a, b),c)-5);
end.
800*600=480 000 число пикселей
480000*4=1 920 000 число пикселей на четырех страницах... .
глубина цвета 24...
24 это - 16 777 216 цветов (или 1 пиксель использует 3 байта)
1920000*3 = 5 760 000 байт = 46 080 000 бит = 5625 КБ = 5.5 МБ
Var a,b,c,min,max,s: integer;
begin
write('Ведите числo а '); readln(a);
min:=a; max:=a;
write('Ведите числo b '); readln(b);
if b<min then min:=b;
if b>max then max:=b;
write('Ведите числo c '); readln(c);
if c<min then min:=c;
if c>max then max:=c;
writeln('Сумма min + max = ',min+max);
end.
План
1.Мальчик получил двойку.
2. Мама и сестра огорчены.
3. Младший брат и собака все равно рады видеть мальчика.
4.Делу время, потехи час.
Главный герой - школьник.
Мальчик никогда не успевал делать домашнее задание. Мама не удивлялась двойками.
