Запишите в порядке возрастания размера имена файлов и их размер (в столбик): to_know.avi 0,5 кбайт hunter.rar 12 байт every.pas 80 бит pheasant_is.gif 1025 кбайт where.sys 1 мбайт wish.xls 500 байт
Const n = 9; var a:array[1..n,1..n] of integer; i,j,k,max: integer;
begin Randomize; Writeln('Исходная матрица'); max:=-100; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=Random(51)-25; Write(a[i,j]:4); if max<a[i,j] then max:=a[i,j] end; Writeln end;
for i:=2 to n-1 do { не просматривать первую и последнюю строки } for j:=1 to n do if a[i,j]=max then a[i,j]:=0;
Writeln('Результирующая матрица'); for i:=1 to n do begin for j:=1 to n do Write(a[i,j]:4); Writeln end; end.
2)12 байт
3)0.5 кБайт
4)1025 кБайт
5)1 Мбайт
6)500 Мбайт
От меньшего к большему