Напишите программу для решения следующей . ученики 4 класса вели дневники наблюдения за погодой и ежедневно записывали дневную температуру. найдите среднюю температуру за время наблюдения. если количество дней, когда температура поднималась выше нуля градусов, не менее 5, выведите yes, иначе выведите no. программа получает на вход количество дней, в течение которых проводилось наблюдение n (1 ≤ n ≤ 31), затем для каждого дня вводится температура.

Var n,i,k,z: integer;           s: real; begin s: =0; k: =0;   repeat      write('введите кол-во дней : ');         readln(n);   until (n> =1) and (n< =31); {проверка на верное количество дней} for i: =1 to n do  begin      write ('введите значение температуры в ',i,' день : ');       readln(z);       s: =s+z;       if z> 0 then k: =k+1;   end; s: =s/n; writeln('средняя температура = ',s); if k> =5 then writeln('yes')  else writel n('no'); end.

Билеты на общественный транспорт обычно имеют шестизначные номера. Некоторые из этих билетов считаются “счастливыми”. Для того, чтобы определить, является ли билет “счастливым”, нужно сложить 3 первые и 3 последние цифры номера. Если суммы будут одинаковыми, билет считается “счастливым”. Например, левый билет на рисунке не “счастливы”, потому что 2 + 2 + 8 = 12, а 7 + 1 + 7 = 15. Суммы не совпадают. Написать программу, которая будет вводить номер билета и говорить является ли он счастливым или нет. При выполнении задания учитывайте, что операция вычисления остатка от деления на 10 всегда дает нам последнюю цифру числа, например: 145 % 10 = 5.

2)

Написать программу, которая будет вводить с клавиатуры положительные числа до тех пор, пока не будет введена -1. Все числа должна записываться в список и в конце работы программы из списка должна быть распечатаны сначала четные, затем нечетные числа.

{1. традиционный паскаль, каким он был более четверти века назад. именно его описывают школьные учебники. } function max(a,b: real): real; begin   if a> b then max: =a else max: =b end; var   x,y,z,r: real; begin   write('введите z,y,z: ');   read(x,y,z);   r: =sqr(max(max(x+y/2+z,x*y*z/2),z+1))+5;   writeln(r) end. // 2. pascalabc.net 3.2, сборка 1374 от 10.01.2017 // актуальная, современная версия паскаля, которой // все же начали учить некоторые школы и на которой // можно решать олимпиадные // (пока еще не на любых сайтах) begin   var x,y,z: real;   write('введите z,y,z: ');   read(x,y,z);   var r: =sqr(max(max(x+y/2+z,x*y*z/2),z+1))+5;   writeln(r) end.