begin writeln('Сколько тебе лет?:'); readln(b); if b > 17 then begin writeln('В каком институте ты учишься?:'); readln(a); writeln(a, ' хороший институт'); writeln('До следующей встречи!'); end else if b <= 17 then begin writeln('В какой школе ты учишься?'); readln(a); writeln(a, ' не плохая школа'); writeln('До следующей встречи!'); end; end.
Var A: array[1..20, 1..20] of integer; m, n, k, i, j: integer; begin randomize; repeat write('Введите число столбцов и строк через пробел: '); readln(n, m); until (n in [1..20]) and (m in [1..20]); for i := 1 to m do begin for j := 1 to n do begin A[ i, j ] := random(19) - 9; write(A[i, j]:5); end; if odd(i) then writeln(' ') else writeln; end; writeln; writeln('Заменяем отрицательные числа на нули, положительные - на единицы:'); writeln; for i := 1 to m do begin for j := 1 to n do begin if A[ i, j ] <= 0 then A[ i, j ] := 0 else A[ i, j ] := 1; write(A[i, j]:5); end; if odd(i) then writeln(' ') else writeln; end; end.
p.s: не совсем понятно последнее задание - вывести нижнюю треугольную матрицу. Сделать новую или что?
ЖЖЖЖЖЖЖ
Объяснение:
Вот сделай лучшим ответом