Перечислите наиболее часто встречаемые графические объекты, доступные в текстовом редакторе.
211
382
Ответы на вопрос:
uses crt; var a : array [ 1.. 20 , 1.. 20 ] of real; i , j , k , n , s : integer; begin clrscr; write ( 'введите размер матрицы: ' ); read (n ); for i : = 1 to n do for j : = 1 to n do begin write ( 'a[' , i , ',' , j , ']= ' ); readln (a [i , j ] ); end; writeln; writeln; writeln ( 'исходная матрица ' , n , 'x' , n , ': ' ); for i : = 1 to n do begin for j : = 1 to n do write (a [i , j ] : 2 : 0 , ' ' ); writeln; end; k : = 0; for i : = 1 to n do begin for j : = 1 to n do begin if a [i , j ] = 0 then begin k : = k + 1; s : = s + 1; end; end; if k = n then writeln (i , ' строка состоит из нулей! ' ); k : = 0; end; if s = 0 then writeln ( 'в матрице нет нулевых строк' ); end.
Популярно: Информатика
-
катерина42408.03.2020 06:14
-
nononono3j09.02.2023 16:25
-
bogdanka1503p08ifa15.06.2020 00:42
-
del983223.10.2021 14:18
-
23LOLKEK03.11.2021 02:31
-
нэлли198708.04.2021 18:08
-
katm200309.12.2021 21:50
-
Николь56014.06.2022 11:59
-
annet15058616.02.2023 09:26
-
lolkekcheburek1517.04.2021 16:56