Составить программу на паскале и тестовые наборы, можно полностью , карточка номер 3.

//pascalabc.net версия 3.3.1590 от 03.12.17 //если программа не запускается, то обновите версию begin       var a : = readarrreal('введите температуры за неделю', 7);       writeln('дней за неделю было с положительной температурой = ', a.count(x -> x > 0));       writeln('дней за неделю было с отрицательной температурой = ', a.count(x -> x < 0));       writeln('дней за неделю было с нулевой температурой = ', a.count(x -> x = 0)); end.

Var   a: array [1..100] of integer; begin   var n : = readinteger;   var mmax : = integer.minvalue;   var mmin : = integer.maxvalue;   for var i : = 1 to n do   begin       readln(a[i]);       if (i mod 2 < > 0) and(a[i] < mmin) then mmin : = a[i];       if (i mod 2 = 0) and (a[i] > mmax) then mmax : = a[i]   end;   writeln('минимальный элемент массива с нечетным индексом: ', mmin);   writeln('максимальный элемент массива с четным индексом: ', mmax) end.