Какие из перечисленных моделей являются материальными а какие информациями формула площади квадрата смеха движения транспортом монетка человека фотография космического корабля
210
413
Ответы на вопрос:
Type mas=array[,] of integer; const n=5; m=6; var i,j,ik,jk,k: integer; a: mas; b: array[0..n-1]of integer; // массив begin setlength(a,n,m); writeln('массив: '); for i: =0 to n-1 do begin for j: =0 to m-1 do begin a[i,j]: =random(20); write(a[i,j]: 4); end; writeln; end; writeln('вставка строк: '); // в массиве b признак наличия в строке 1-го четного for i: =0 to n-1 do if a[i,0] mod 2=0 then b[i]: =1; for i: =0 to n-1 do k: =k+b[i]; k: =n+k-1; setlength(a,k+1,m); ik: =k; for i: =n-1 downto 0 do begin if b[i]=1 then begin for jk: =0 to m-1 do a[ik,jk]: =1; ik: =ik-1; end; for jk: =0 to m-1 do a[ik,jk]: =a[i,jk]; ik: =ik-1; end; for i: =0 to k do begin for j: =0 to m-1 do write(a[i,j]: 4); writeln; end; end.
Популярно: Информатика
-
ЕлизаветаШкола29.02.2020 18:51
-
Nikitos23555555555502.02.2023 14:45
-
Tles30.06.2022 07:04
-
Клита20.03.2022 18:00
-
cheri22820.05.2022 20:28
-
BossPolina27.10.2021 06:18
-
taniussa116.05.2020 12:52
-
Aizere111101.06.2021 22:09
-
NeTop4ek18.07.2020 05:40
-
eligi234507.08.2020 21:24