В 3 пункте непонятно. "чему равна температура за первую половину сентября?"
Средняя температура? Половина сентября? в задаче и так прдставлен массив половины сентября - с 1 по 15 число.
uses crt;
const n=15;
var max,min,i,k:integer;
sr:real;
a:array[1..n] of integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(23)-4;
write(a[i]:3);
end;
writeln;
max:=-4;
for i:=1 to n do
if a[i]>max then
begin
max:=a[i];
k:=i;
end;
writeln('a)',k,' day ',max,'temperature');
min:=19;
for i:=1 to n do
if a[i]<min then
begin
min:=a[i];
k:=i;
end;
writeln('a)',k,' day ',min,'temperature');
sr:=0;
for i:=1 to n do
sr:=a[i]+sr;
sr:=sr/n;
writeln('средняя температура за половину сентября ',sr);
k:=0;
for i:=1 to n do
if a[i]<sr then begin inc(k); writeln(i,'сентября'); end;
writeln(k);
end.
Одно из "быстрых по написанию" решений, не учитывающих фактор наличия упорядоченности массивов. Это разумно: 10 баллов за решение - не та цена, за которую есть смысл составлять и отлаживать эффективный алгоритм поиска по упорядоченным массивам.
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var x:=ArrRandom(ReadInteger('p='),-20,20).Sorted;
var y:=ArrRandom(ReadInteger('q='),-10,15).Sorted;
var z:=ArrRandom(ReadInteger('r='),1,18).Sorted;
x.Println; y.Println; z.Println;
var r:=x.Intersect(y.Intersect(z));
if r.Count=0 then Writeln('Нет общих элементов')
else begin Write ('Общие элементы: '); r.Println end
end.
<u><em>Тестовое решение</em></u>
p= 15
q= 13
r= 18
-19 -16 -15 -11 -7 -7 -2 0 0 2 4 7 10 14 20
-8 -6 -4 -4 -4 -3 -1 4 4 9 13 13 15
1 1 2 2 2 4 4 5 6 9 10 12 12 14 14 15 15 17
Общие элементы: 4
В borland pascal типа данных, который может вместить такое число, нету. может создать массив, хранить в нем разряды числа, а при выводе соединять в одно число.
либо перейди на free pascal. там int64 тебе идеально подойдет.
Это — "процесс изменения одного или нескольких ПАРАМЕТРОВ высокочастотного модулируемого колебания по закону информационного низкочастотного сообщения"
Например, U=Uo*sin(ωt+φ); Если амплитуда Uo в свою очередь изменяется, то суммарное колебание будет амплитудно-модулированным
LPT порт - это то место в компе куда подключается принтер. Но туда можно воткнуть ещё много чего интересного. В том числе и придуманые вами схемы. У меня, например, через LPT порт включался свет в комнате, открывался замок на двери и выключалось радио.
Шины, как известно, используются для передачи данных от центрального процессора к другим устройствам персонального компьютера. Для того, чтобы согласовать передачу данных к отдельным компонентам, работающих на своей частоте, используется чипсет – набор контроллеров, конструктивно объединенных в Северный и Южный мосты. Северный мост отвечает за обмен информацией с оперативной памятью и видеосистемой, Южный – за функционирование других устройств, подключаемых через соответствующие разъемы – жесткие диски, оптические накопители, а также устройств, находящихся на материнской плате (встроенная аудиосистема, сетевое устройство и др. ), и для внешних устройств – клавиатура, мышь и т.д.
Схема системной платы показана ниже.
1. Выбор участка.
2. Выбор проекта.
3. Получение необходимых разрешений.
4. Выбор материалов.
5. Решение вопросов финансирования строительства.
6. Собственно, проектирование
7. Подготовка участка к
строительству.
8. Поиск исполнителей.
9. Нулевой цикл.
10. Заготовка лесоматериалов.
11. Подготовка строительных материалов из леса и завоз на участок.
12. Сборка стен.
13. Установка кровли.
14. Подвод коммуникаций.
15. Внутренняя отделка.