1. любой ли список является связным? обоснуйте ответ. 2. в чем отличие первого элемента однонаправленного (двунаправленного) списка от остальных элементов этого же списка? 3. в чем отличие последнего элемента однонаправленного (двунаправленного) списка от остальных элементов этого же списка? 4. почему при работе с однонаправленным списком необходимо позиционирование на первый элемент списка? 5. почему при работе с двунаправленным списком не обязательно позиционирование на первый элемент списка? 6. в чем принципиальные отличия выполнения добавления (удаления) элемента на первую и любую другую позиции в однонаправленном списке? 7. в чем принципиальные отличия выполнения основных операций в однонаправленных и двунаправленных списках? 8. с какой целью в программах выполняется проверка на пустоту однонаправленного (двунаправленного) списка? 9. с какой целью в программах выполняется удаление однонаправленного (двунаправленного) списка по окончании работы с ним? как изменится работа программы, если операцию удаления списка не выполнять?
var i,w:byte;season:mas;t:real;
function temp(ses:mas;d:byte):real;
var i:byte;s:real;
begin
s:=0;
for i:=1 to d do s:=s+ses[i];
temp:=s;
end;
begin
repeat
writeln('Год високосный?1-да 0-нет');
read(w);
if (w<>1) and (w<>0) then w:=2;
until w<>2;
writeln('Введите зимние температуры за каждый день:');
for i:=1 to 90+w do readln(season[i]);
t:=temp(season,90+w);
writeln('Среднее арифметическое зимних температур: ',t/(90+w):5:3);
writeln('Введите весенние температуры за каждый день:');
for i:=1 to 92 do readln(season[i]);
t:=temp(season,92);
writeln('Среднее арифметическое весенних температур: ',t/92:5:3);
writeln('Введите летние температуры за каждый день:');
for i:=1 to 92 do readln(season[i]);
t:=temp(season,92);
writeln('Среднее арифметическое летних температур: ',t/92:5:3);
writeln('Введите осенние температуры за каждый день:');
for i:=1 to 92 do readln(season[i]);
t:=temp(season,91);
writeln('Среднее арифметическое осенних температур:',t/91:5:3);
end.