Ну примерно, так же как задан вопрос
домашняя библиотека
-ид
-название книги
-год выпуска
-автор
-дата приобретения
-хозяин книги
-оценка
-комментарий
-жанры
погода
-дата
-температура
-осадки
-давление
-ветер
успеваемость (на одного человека)
-ид
-дата
-предмет
-оценка
-тип работы/ответа
факультативы
-ид
-название
-кто ведет
-ссылка на расписание
-дата начала
-дата окончание
-тип зачета
-кол-во человек
9*1024*1026*8 = 75497472 бит
Учитель
строитель
банкир
директор
учёный
президент
Ответ:
смотрите решение на листике
Объяснение:
Program programma;
uses crt;
var i: integer;
a:array [1..15] of integer;
begin clrscr;
randomize;
for i:=1 to 15 do
a[i]:=random(200)-100;
writeln('Массив:');
for i:=1 to 15 do
write(a[i]:5);
for i:=1 to 15 do
begin
a[i]:=-a[i];
if (a[i]<-50) then a[i]:=a[i]*2;
end;
writeln;
writeln;
writeln('Новый массив:');
for i:=1 to 15 do
write(a[i]:5);
READLN;
end.