Задачи.
НА
1. Ввести 10 чисел. Проверить, делится ли каждое число на 3. Если делится то вывести число без
изменения в противном случае, вывести число, умножив его на 2.
2. Дано число. Определить, делиться ли оно на 12. Если делится, то проверить на делимость на 3
следующие за ним 8 чисел и вывести те, которые делятся.
3. На конференцию приехало Nчеловек. Для их перевоза выделили автомобили вместимостью Ки
M человек. Определить, сколько необходимо автомобилей для перевозки всех делегатов
конференции.
И
ДА балов дам ​

стр1: 'дерево';

стр2: 'обработка';

стр3: стр1+стр2;

                      стр3: ='деревообработка';

количество кбайт умножаете на 1024 получаете количество символов 3,5*1024=3584

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.

var i, j, k, p: integer; a, b: array[1..10] of integer;

begin k : = 0; for i : = 1 to 10 do begin a[i] : = random(20) - 10; write(a[i]: 3); if a[i] > 0 then begin k : = k + 1; b[k] : = a[i]; end; end; for i : = 1 to k - 1 do for j : = i + 1 to k do if b[i] > b[j] then begin p : = b[i]; b[i] : = b[j]; b[j] : = p; end; writeln; for i : = 1 to k do write(b[i]: 3); end.