const
n = 20;
var
a, b: array[1..n] of integer;
i, k: integer;
begin
randomize;
for i : = 1 to n do
begin
a[i] : = 10 + random(90);
write(a[i]: 3);
end;
writeln;
k : = 1;
for i : = 1 to n - 1 do
begin
if a[i] < a[n] then
begin
b[k] :
= a[i];
write(b[k]: 3);
k += 1
end;
end;
end.
<html>
<body>
<h3 style="margin-bottom: -19px; margin-left: 30px"><b>Редакторы компьютерной графики:</b></h3>
<ul style="font-size:19px">
<li style="margin-left:-10px" type="square">Векторные редакторы
<ul style="font-size:19px">
<li style="margin-left:10px" type="disc" >CorelDRAW
<ol>
<li style="padding-left:10px">CorelDRAW</li>
<li style="padding-left:10px">Corel PhotoPaint</li>
<li style="padding-left:10px">Corel R.A.V.E</li>
</ol>
</li>
</ul>
</li>
<li style="margin-left:-10px" type="square">Растровые редакторы
<ul style="font-size:19px">
<li style="margin-left:10px" type="disc" >Adobe Photoshop
<ol>
<li style="padding-left:10px">Adobe Photoshop</li>
<li style="padding-left:10px">Adobe ImageReady</li>
</ol>
</li>
</ul>
</li>
</ul>
</body>
</html>
Объяснение:
картинка
Поделитесь своими знаниями, ответьте на вопрос:
Создать схему базы данных бд: автовокзал. цели: вычислить суммы полученной от продажи билетов, затраты на топливо для маршрутов, учёт данных о сотрудниках. (минимум 5 таблиц) придумать название таблиц и столбиков в таблице
таблица - рейсы
ид
название
ид начального пункта
ид конечного пункта
таблица - пункты (остановки)
ид
название
таблица - растояние+рейс
ид пункта1
ид пункта2
растояние (растояние между пунктами 1 и 2, пункты должны быть только соседними)
ид рейса
цена (стоимость проезда между пунктами 1 и 2)
таблица - автобусы
ид
потребление топлива (на 1 км)
кол-во посадочных мест
таблица - рейс+автобус (какие автобусы по каким рейсам ездят)
ид рейса
ид автобуса
таблица - билеты
ид рейс
дата-время
кол-во проданных билетов
таблица - сотрудники
ид
имя
должность
ставка
телефон