"одномерные массивы" в массивах u[7], d[7], v[7] содержатся значения утренней, дневной и вечерней температуры соответственно за каждый день недели. подсчитать среднее значение дневной температуры за каждый день. паскаль

// PascalABC.NET 3.2, сборка 1488 от 21.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('Среднедневная температура равна ',
      ReadSeqReal('Введите дневные температуры:',7).Average:0:1)
end.

Пример
Введите дневные температуры: 27.8 29.5 31.7 32.4 27.1 29.2 30.8
Среднедневная температура равна 29.8

Разрядность процессора – это величина, которая определяет размер машинного слова, то есть количество информации, которой процессор обменивается информацией с оперативной памятью.

В наши дни первым фактором можно приниберечь, т.к. все современные процессоры одинаково работать, как в 32-х, так и в 64-х битном режиме.

Ещё раз подчёркиваю, что никакой разницы нет.

Что касается оперативной памяти, то в этом и заключается вся суть.

Дело в том, что каждая ячейка (8 бит = 1 байт) ОЗУ имеет адрес и в 32-х битной системе он записывается в виде двоичного кода длиной в 32 символа.
Из простых математических преобразований получаем 2^32=4294967296 байт = 4 ГБ.
То есть, в 32-битной системе, ячейки памяти условно расположенные за пределом 4ГБ просто не получат адреса и не будут использоваться.
Если использовать 64-х битную систему, то размер адресуемой памяти 2^64= 18446744073709551616. Разница, как говорится, видна не вооружённым взглядом.

Из этого всего следует вывод, что ключевым фактором является размер ОЗУ: меньше 4 ГБ стоит выбрать 32-разрядную, больше 4 ГБ – 64-разрядную.

Соответственно, максимальная разрядность 64-разрядная

1) Текст заданной длины n, состоящий из букв А и В
Dim A(2) As String, n As Integer, i As Integer, Txt As String, k As Integer
Cls: Randomize
A(1) = "A": A(2) = "B"
Print "Введите длину текста: ";: Input n
Txt = ""
For i = 1 To n
    k = Int(Rnd(1)*2) + 1 ' k - случайное число, равное 1 или 2
    Txt = Txt & A(k) ' Прибавляем к тексту случайно букву А или В
Next i
Print Txt
End

2) Количество символов заданного числа
Dim n As Integer, k As Integer
Cls
Print "Введите число: ";: Input n
k = 0
Do While n > 0
    n = Int(n / 10)
    k = k + 1
Loop
Print k
End

3) Вывести символы строки в обратном порядке
Dim n As Integer, i As Integer, Txt1 As String, Txt2 As String
Cls
Print "Введите строку ": Input Txt1
Txt2 = ""
For i = Len(Txt1) To 1 Step -1
    Txt2 = Txt2 & Mid(Txt1, i, 1)
Next i
Print Txt2
End

Хватит. Если хочешь еще, задавай остальные задачи в другом вопросе.