Var matrix: array[1..5,1..5] of integer; i, j: integer; sg:=0; sp:=0;begin writeln ('Введите 25 чисел: '); for i := 1 to 5 do for j := 1 to 5 do read (matrix[i,j]); for i := 1 to 5 do begin for j := 1 to 5 do write (matrix[i,j], ' '); writeln end; for i:=1 to 5 do begin for j:= 1 to 5 do if j=i then sg:=sg+matrix[i,j]; end; for i:=5 downto 1 do begin for j:=1to 5 do if (i+j)=6 then sp:=sp+matrix[i,j] end; sp:=sp-matrix[3,3];1 writeln(sg,' ',sp);readlnend
Достаточно
Объяснение:
Видео 1,44 гб = 1475 мб
Фотографии - 370мб
Текст 970 кб = 0.9473мб
Презентация - 190мб
Флешка 2гб, значит должно получиться 2048
Считаем: 1475+370+190+0,95=2 035,95 мб, что меньше числа 2048. Значит хватит