40 ! нужно изменить программу так, чтобы все числа в матрице ниже главной диагонали заменялись на единицы.программа: program nol; const n=5; var a: array [1..n,1..n] of integer; var i,j: integer; begin randomize; for i: = 1 to n do begin for j: =1 to n do begin a[i,j]: =random(100); end; writeln; end; for i: =1 to n do for j: =i+1 to n do a[i,j]: =0; writeln('матрица: '); for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 5); writeln; end; end.
115
360
Ответы на вопрос:
Популярно: Информатика
-
ravng25829.11.2022 01:00
-
nzotov29922.08.2020 04:51
-
kostiusikao09.01.2022 05:42
-
zanna7408.07.2020 23:05
-
Какэтимпользоваться23.03.2023 20:38
-
15kristina08.09.2020 00:04
-
sarmat148207.05.2020 21:45
-
mashuna116.01.2020 14:00
-
Екатерина31Теребун24.05.2022 11:43
-
Unknown228102.11.2020 20:24