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

0 0

1 год назад

Алгоритм- взять книги в библиотеке

KsUnYa - MaX

1.Начало
2.Встать
3.Собраться
4.Взять ключи и т.д
5Открыть дверь
6.Обуться
7.Закрыть все двери
8.Нажать на кнопку лифта
9Зайти в лифт
10.Выйти и идти в библиотеку
11.Придти
12.Выбрать книгу
13.Уйти
14.Идти домой
15.Конец

0 0

4 года назад

Решите 2 задачи: 1)Запишите значение переменой s, полученное в результате работы следующей программы: Var s,k: i

Ulshiva

1) Нам дано что S=0 дальше нам дано что программу s:=s+12 нужно повторить 11 раз ( for k:=1 to 11 do ).К нулю прибавляем 12 ровно 11 раз и получаем S=132
2)так же делаем и тут. обрати внимание что 0 тоже считается за количество повторов ( for k := 0 to 9 do ) так мы считаем не 9 повторов а 10.И так. <span>s := 1 следовательно к 1 прибавляем 5 по 9 рази получаем </span> S=51

0 0

4 года назад

Сколько Кбайт данных может быть передано за 50 секунд через интернет соединение со скоростью 80 000 бит/с ?

рур

1 байт - 8 бит

80000 бит/с = 10000 байт/с

1 Кбайт - 1024 байт

10000 байт * 50с = 500000 байт(за 50 с )

Дальше сам,данные есть,решай по формуле S=tV (V -скорость)

0 0

1 год назад