//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
var a := ArrRandom(10, -5, 10);
writeln(a);
var i:=1;
var s:=0;
while i<=9 do begin
s:=s+a[i];
i:=i+2;
end;
writeln(s);
end.
Const n=13;
var
c:array[1..n] of integer;
i,num:integer;
begin
for i:=1 to n do c[i]:=random(-10,10);
for i:=n downto 1 do begin
write(c[i],' ');
if c[i] < 0 then begin
writeln(i);
break;
end;
end;
end.
/////////////////////////////////////
5,5Мбайт=5,5*1024Кбайт=5,5*1024*1024байт=5767168байт
7Гбайт=7*1024Мбайт=7*1024*1024Кбайт=7340032Кбайт
3Байта=3*8бит=24бит
1/2Мбайт=1/2*1024Кбайт=1/2*1024*1024байт=524288байт
Var a,b,c,x,y:real;
begin
writeln('Введите рёбра кирпича через пробел');
readln(a,b,c);
writeln('Введите размеры дыры');
readln(y,x);
if (a<c) and (b<c) then begin if (a<x)and(b<y) or (a<y) and (b<x) then write('Пройдёт')end
else if (b<a) and ((b<x)and(c<y) or (b<y) and (c<x) ) then write('пройдёт')
else if (a<y) and ((c<x)and(a<y) or (c<y) and (a<x)) then write('пройдёт')
else write ('не пройдёт');
<span>end.</span>