Предмет:
ИнформатикаАвтор:
blossomwallaceuses Crt;
const N = 5; M = 5; Var A: array[1..N, 1..M] of integer; i, j: integer; begin ClrScr; for i:= 1 to N do for j:= 1 to M do A[i, j]:= Random((50) – 10); {Вывод матрицы на экран по строкам} writeln; for i:= 1 to N do begin for j:= 1 to M do write(' ' , A[i, j]:3); writeln; writeln; end; writeln; for i:= 1 to N do begin for j:= 1 to M do begin if A[j, i] <> A[i, j] then A[i, j]:= 0 else A[i, j]:= A[j, i]; write(' ' , A[I, j]:3); end; writeln; writeln; end; readln end.Автор:
Fedoseewa27Добавить свой ответ
Предмет:
МатематикаАвтор:
smoke14Ответов:
Смотреть
Предмет:
Английский языкАвтор:
ezekiel905Ответов:
Смотреть