По учебнику семакина, параграф 4, , вопрос 7: составьте программы рисования символов е, п, б, ч, ц, ш, а также других фигур, состоящих из горизонтальных и вертикальных отрезков.
Delphivar a1, a2: array of integer; n, c, i: integer; procedure PrintDescending(a: array of integer); var i, j, max: integer; begin for i := 0 to Length(a) - 1 do begin for j := 0 to Length(a) - 1 do if a[j] > a[max] then max := j; Write(a[max], ' '); a[max] := -10001; end; end; begin //Запрашиваем ввод длины массива: Write('Введите длину массива: '); Read(n); //Устанавливаем длину массивов: SetLength(a1, n); SetLength(a2, n); //Заполняем первый массив случайными числами: for i := 0 to n - 1 do a1[i] := Random(201) - 100; //Заполняем второй массив только нечётными элементами первого: for i := 0 to n - 1 do if Abs(a1[i]) mod 2 = 1 then begin a2[c] := a1[i]; c := c + 1; end; //Урезаем второй массив: SetLength(a2, c); //Выводим первый массив: for i := 0 to n - 1 do Write(a1[i], ' '); Writeln; //Выводим второй массив в порядке убывания: if c = 0 then Write('Нечётных элементов нет.') else PrintDescending(a2); end.
1). Из большого кувшина отлить в маленький 3 л. В большом осталось 5 л.
2). Перелить 3 л из маленького в средний кувшин.
3). Снова наполнить маленький кувшин из большого. В большом осталось 2 л.
4). Из маленького (в котором 3 л) наполняем доверху средний (в котором было 3 л). При этом переливаем в него 2 л, а в маленьком остается 1 л.
5). 5 л из среднего переливаем в большой (было 2 л, стало 7 л).
6). Переливаем 1 л из маленького в средний.
7). Из большого (где 7 л) наполняем маленький. В большом осталось 4 л.
8). Из маленького выливаем 3 л в средний, где был 1 л и получаем тоже 4 л.
Объяснение:
Пример работы: