var ar: array of array of integer; n, m, i, j: integer;
begin read(n, m); setlength(ar, n); for i := 0 to n - 1 do setlength(ar[i], m); writeln('Enter matrix:'); for i := 0 to n - 1 do begin writeln; for j := 0 to m - 1 do read(ar[i, j]); end; writeln; writeln('First matrix:'); for i := 0 to n - 1 do begin writeln; for j := 0 to m - 1 do write(ar[i, j]:4); end; writeln; writeln('Final matrix:'); for i := 0 to n - 1 do begin writeln; for j := 0 to m - 1 do begin if ar[i, j] mod 2 = 0 then ar[i, j] := ar[i, j] div 2; write(ar[i, j]:4); end; end; end.
Const n=3; m=4; var a:array[1..n,1..m] of integer; i,j:integer; begin for i:=1 to n do for j:=1 to m do begin write('a[',i,',',j,'] ='); readln(a[i,j]); end; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:4); writeln; end; for i:=1 to n do for j:=1 to m do if a[i,j] mod 2 = 0 then a[i,j]:=a[i,j] div 2; writeln('Полученный массив:'); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:4); writeln; end; end.
1)
1.папка:отвечает за размещения в неё различных файлов .
2.компьютер:он подходит для работы,игр,збора информации.
3.карзина:для полного удаления файлов.
4.миравая сеть:подходит для оповещения разной информации.
Объяснение:
сам делал правильно?