программа паскаль Задача:

Опишите:

тип массив TStroka как массив целых чисел из MAX_NUM элементов (задано константой, описывать не надо) элементов с индексами от 1 до MAX_NUM;
тип массив TTablica как массив из строк целых чисел (TStroka) из MAX_NUM элементов (задано константой, описывать не надо) элементов с индексами от 1 до MAX_NUM;
процедуру procedure Zap(var m: TTablica), которая заполняет массив, заданным образом;
процедуру procedure Vivod(m: TTablica), которая выведет элементы массива в виде таблицы через один пробел.
Формат ввода:

Описан в задаче.

Формат вывода:

Описан в задаче.

Пример входных данных

Описан в задаче.
Пример выходных данных

1 1 1 1
0 1 1 1
0 0 1 1
0 0 0 1
Пояснение:

Отсутствует.

1+2+3+4+5+6+7+8+9+10+11+12=78

78: 2=39

делим так, чтобы в обеих частях сумма чисел была 39. для этого линия раздела должна проходить между 3 и 4, а также между 9 и 10. в одной половине 10+11+12+1+2+3=39 и в другой 4+5+6+7+8+9=39

разложим 78 на простые множители:

78 | 2

39 | 3

13 | 13

  1

так как на циферблате всего 12 чисел, получаем, что его ещё можно разделить на 3 и на 6 частей, чтобы суммы чисел в частях были равны:

78: 3=26 (11+12+1+2=26, 9+10+3+4=26, 5+6+7+8=26)

78: 6=13 (12+1=13, 11+2=13,10+3=13, 9+4=13, 8+5=13, 7+6=13)

program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.

не? я не уверен

64000 бит/с*16 c=1024000 бита/8=128000 байт=125 килобайт

var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;

begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.