Const
handsfree = false;
var
a: array[1..100] of integer;
i, n: integer;
begin
{ввод массива}
if handsfree then
n := random(20) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(100) - 50;
write(a[i], ' ');
end
else readln(a[i]);
end;
writeln();
{изменение элементов}
writeln('Вывод прямой:');
for i := 1 to n do
write(a[i], ' ');
writeln();
{изменение элементов}
writeln('Вывод обратный:');
for i := n downto 1 do
write(a[i], ' ');
end.
1 мин = 60 с = 4 · 15 с = 2\4 · 15 с 512000 бит/c = 512 · 1000 бит/с =2\9 · 125 · 8 бит/с =2\9 · 5\3· 2\3бит/с=2\12 · 5\3 бит/с = 2\9 · 5\3 байт/с = 2\9 ×5\3
2\10 Кбайт/с = 5\3
2
Кбайт/с. Чтобы найти время объем файла, нужно умножить время передачи на скорость передачи: 30×125 Кбайт =3750 Кбайт. Ответ: 3750.
//PascalABC.NET 3.2 сборка 1318
Const
n=5;
Var
ar:array[1..n] of integer;
CouOfDel,i:integer;
begin
for i:=1 to n do
readln(ar[i]);
for i:=2 to n do
if ar[i-1]>ar[i] then inc(CouOfDel);
if CouOfDel>1 then writeln('Нет') else writeln('Да');
end.
Пример ввода:
1
2
2
1
3
Пример вывода:
Да
Информацию, которая выражается на языке, доступном для получателя, называют понятной
Var x:integer;
y:real;
begin
for x:=-5 to 5 do
if (x>1) and (x<3) then begin y:=cos(x); writeln(x,' ',y:2:2); end
else if x<1 then begin y:=sqr(x); writeln(x,' ',y); end
else begin y:=ln(x); writeln(x,' ',y:2:2); end;
end.