Доброго времени суток, нужна по информатике:
1) Сколько элементов в описанном массиве?
d: array [byte] of byte;
Запишите число:
2) Сколько байт занимает описанный массив?
a: array [boolean] of real;
Запишите число:
3) Как обратится к элементу массива а с индексом 5?
Запишите ответ:
// Внимание! Если программа не работает, обновите версию!
begin
var a,b,c,d,kn,kp:real;
Read(a,b,c,d);
if a>0 then kp+=1 else if a<0 then kn+=1;
if b>0 then kp+=1 else if b<0 then kn+=1;
if c>0 then kp+=1 else if c<0 then kn+=1;
if d>0 then kp+=1 else if d<0 then kn+=1;
Writeln('Положительных ',kp,', отрицательных ',kn)
end.
Пример
8 -2 0 -4
Положительных 1, отрицательных 2
Для прочих версий языка Паскаль
var
a,b,c,d,kn,kp:real;
begin
Read(a,b,c,d);
kp:=0; kn:=0;
if a>0 then kp+=1 else if a<0 then kn+=1;
if b>0 then kp+=1 else if b<0 then kn+=1;
if c>0 then kp+=1 else if c<0 then kn+=1;
if d>0 then kp+=1 else if d<0 then kn+=1;
Writeln('Положительных ',kp,', отрицательных ',kn)
end.
Для данной сортировки используем алгоритм сортировки слиянием
В начале разбиваем арбузы на 2 группы по 2Каждую группу взвешиваем и сортируем (т.е. всего 2 взвешивания)Теперь собираем вместе, сравниваем сначала более легкие арбузы и находим самый легкий (всего 3 взвешивания)Теперь сравниваем тяжелый арбуз, что в группе с самым легким и более легкий из другой группы, и определяем второй по легкости (всего 4 взвешивания)Потом взвешиваем оставшиеся арбузы и докладываем их по порядку (всего 5 взвешивания)