Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

ПОЖААЛУЙСТА ПОМОГИИИТЕ!!

Дана квадратная матрица A [N, N]. Записать на место отрица­тельных элементов матрицы нули, а на место положитель­ных — единицы. Вывести на печать нижнюю треугольную матрицу в общепринятом виде.

Ответ оставил Гость

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: не совсем понятно последнее задание - вывести нижнюю треугольную матрицу. Сделать новую или что?