Дан массиа а, состоящий из 12 чисел, массив заполнить случайными числами в диапазоне от 0 до 100. требуется подсчитать среднее арифметическое значение элементов массива. на экран вывести массив и среднее арифметическое

Var a: array[1..12] of real; s: real; i: byte; begin for i: =1 to 12 do begin a[i]: =random(101); write(a[i], ' '); s: =s+a[i]; end; s: =s/12; writeln(''); write('среднее арифметическое: ', s); end.

1: развернутая форма числа - представление числа в виде суммы каждого разряда числа.

4563 = 4 × 10^3 + 5 × 10^2 + 6 × 10^1 + 3 × 10^0

100101 = 1 × 2^5 + 0 ×2^4 + 0 ×2^3 + 1 ×2^2 + 0 ×2^1 + 1 ×2^0

ac6 = 10 ×16^2 + 12 ×16^1 + 6 × 16^0

2:

1001010, 112, 4а

3:

1)

11001101011+1110000101=100111110000 101011-10011=11000 1011х101=101100+1011=110111

2)

+564  2341020

получилось: 564+234  = 1020

-652  465  165

получилось: 652-465  = 165

3)

+df45  128af1cf

получилось: df45+128a  = f1cf

-92d4  11ae8126

получилось: 92d4-11ae  = 8126

1) начало 2) ввод матрицы a(5, 10) 3) цикл по i от 1 до 5 // по строкам 3.1) max = a(i, 1); min = a(i, 1); nmax = 1; nmin = 1; 3.2) цикл по k от 1 до 10 // по столбцам 3.2.1) если a(i, k) > max, то // находим максимум в строке и его номер 3.2.1.1) max = a(i, k); nmax = k; 3.2.1.2) конец если 3.2.2) если a(i, k) < min, то // находим минимум в строке и его номер 3.2.2.1) min = a(i, k); nmin = k; 3.2.2.2) конец если 3.2.3) конец цикла по k // по столбцам 3.2.4) a(i, nmin) = max; a(i, nmax) = min // меняем их местами 3.3) конец цикла по i // по строкам 4) вывод массива a(5, 10) 5) конец. сложность такой программы - 1 ( простая). всего лишь два цикла в цикле и два сравнения чисел.