определите правила по которому составлена последовательность и продолжите её.

Дан массив из 10ти целых чисел , введенных с клавиатуры. Найти и заменить все нулевые элементы на минимальный элемент массива.

Нужно написать программу, которая высчитывает среднею температуру, максимальную и минимальную температуру за месяц.
Вот, пытался написать сам, не получается:
program PoGoda;
uses crt;
var
x, n, t : integer;
max, min, imax, imin : integer;
const z=5;
begin
for x := 0 to z do;
x :=1;
while (x < z+1)do
begin {Создаем массив}
while (x > z) do
writeln;
write ('Какая температура была в ');
write ( x);
write (' день? ');
readln (t);
inc (x);
end;
max:= t[x];
for x:=0 to z do
if max begin
max:=t;
imax:=x
end
else
if min>t then
begin
min:=t;
imin:=x
end;
writeln;
writeln('Максимальное значение ',max);
writeln('В какой день месяца было максимальное значение ',imax);
writeln('Минимальное значение ',min);
writeln('В какой день месяца было минимальное значение ',imin);


readkey;
end.

числа; • Найдите наибольшую цифру числа; • Найдите сумму цифр числа, больших 5.

за какое время будет по каналу передан текст, информационный объём которого составляет 100 килобайтов.

1. Напишите программу формирования и вывода массива размером 6x3, каждые три последовательных элемента в строке которого составлены по следующему правилу:
1-й — равен случайному числу;
2-й — равен целой части квадратного корня из предыду­щего элемента;
3-й-равен сумме двух предыдущих элементов.

сколько времени по каналу будет передан текст, информационный объём которого составляет 100 Кб.

сколько времени по каналу будет передан текст, информационный объем которого составляет 100 Кбит