Ответы на вопрос:
Рекува - ресейв офисных документов на том диске, с которым работали над файлом. 99% что темп. сейв хранится и восстановится без проблем.
Var a: array [1..50,1..50] of integer; m,n,i,j,k,b: integer; begin writeln ('введи количество столбцов и строк'); readln (n,m); for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(21)-10; write (a[i,j]: 4); end; writeln; end; for i: =1 to n do for j: =1 to m do if n=i+j-1 then begin k: =a[i,j]; b: =b+1; a[i,j]: =a[b,1 ]; a[b,1]: =k; end; writeln; for i: =1 to n do begin for j: =1 to m do write (a[i,j]: 4); writeln; end; readln; end.
Популярно: Информатика
-
ТвОяДеВкА15.03.2023 08:37
-
dmit020.05.2020 17:51
-
его1820.07.2022 22:15
-
Marina1123111.09.2022 02:35
-
kamola20000425.12.2021 03:26
-
спасибо8806.05.2022 05:56
-
Zver777710.12.2020 09:06
-
shavkatbronduk102.02.2023 22:12
-
Тян25513.05.2020 14:47
-
karamanilya26.12.2022 05:57