Краткая надпись на клавише, предназначенной для переключение режимов "вставка/замена"
210
386
Ответы на вопрос:
Прикрепил исправление в виде скриншота и текстового документа с программой. var a: array[1..6,1..6] of integer; x: array[1..6] of byte; i,j,n: byte; sum: longint; begin writeln('введите кол-во строк n: '); readln(n); sum: =0; writeln ('введите матрицу a: ') ; for i: =1 to n do begin for j: =1 to n do begin writeln('введите элемент номер ',i,': ',j); readln(a[i,j]); sum: =sum+a[i,j]; if (a[i,i])> (a[i,j]) then x[i]: =0 else x[i]: =1; writeln; end; end; writeln ('полученный массив'); for i: =1 to n do write(x[i]: 2); writeln; writeln('сумма всех элементов матрицы = ', sum); readln; end.
Популярно: Информатика
-
123456789082430.01.2020 16:40
-
yackubovitchso23.05.2020 14:13
-
максимка228918.03.2020 23:42
-
loon148816.04.2020 12:57
-
Konone17.03.2021 23:16
-
sofiafrog200411.08.2020 10:27
-
Dgj817.12.2021 08:08
-
M4xL1ght08.05.2022 20:01
-
plagods12.06.2022 17:32
-
Chchcjcujcj16.08.2022 06:23