Во номер 4: Даны описания:

Type Ora = 0..23;

Grade = -40..40;

Temperatura = array [Ora] of Grade;

Var t : Temperatura;

Компоненты переменной t представляют собой значения температуры, измеряемой каждый час в течение 24 часов. Напишите программу, которая:

- вычисляет среднюю температуру;

- определяет количество дней с температурой ниже нуля

Свойства ComboBox

Объяснение:

Font шрифт назначенный для отображения элементов списка

Height высота компонента

Left расстояние от левой границы компонента ComboBox до левой границы формы

Top расстояние от верхней границы компонента ComboBox до верхней границы формы

Items элемент списка — массив строк. Заполнить его можно во время проектирования нажав на многоточие около этого свойства в окне Oject Inspectror, для работы со свойством Items во время выполнения программы используются методов приведенных в предыдущей статье ListBox

ItemIndex номер элемента, выбранный из списка (нумерация элементов начинается с нуля), если ни одного элемента из списка не выбрано, то значение этого свойства равно -1

Name имя компонента

текст находящийся в поле редактирования

Width ширина компонента

program name;
var i,n,x,summa,count:integer;
nechet:boolean;
begin
Writeln('Vvedite n: ');
readln(n);//получаем n
summa:=0;
count:=0;
i:=1;
if(n mod 2 = 1) then nechet := true else nechet := false; //проверяем четное число или нет
while i<n do begin//пока число меньше n
if(nechet) then//если число нечентное
begin
summa:=summa+i*i*i;//прибавляем к сумме куб этого числа
end
else//если число четное
begin
summa:=summa+i*i;//прибавляем квадрат числа
end;
i:=i+1;//прибавляем число на 1
end;
writeln(' summa: ', summa);//выводим сумму
readln();
end.