const nx = 20; var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer; i, j, k,n,r,t: integer; begin Writeln('Введите размер матрицы n');Read(n); for i := 1 to n do begin for j := 1 to n do begin Read(k);x[i, j] := k; end;end; Writeln('Исходный массив'); for i := 1 to n do begin for j := 1 to n do begin Write(x[i, j]:4); if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end; end; Writeln; end; Writeln;Writeln('Одномерный массив'); for j := 1 to t do Write(z[j]:4); end.
Апр, школа №151 мурманской области вам: 1) 24 буквы + 8 цифр = 32 символа 2) 32 символа + 1 пробел = 33 символа 3) а так как для 32 символов нужно 5 бит, то для 33 символов нужно 6 бит ответ: i = 6 бит 2. здесь каждый раз придется задавать вопросы, чтобы уменьшить количество возможных вариантов. 1) больше или меньше 32? 2) больше или меньше 16? 3) больше или меньше 8? 4) больше или меньше 4? 5) больше или меньше 2? ответ: 5 вопросов. 3. не смогу . мне задали другое . удачи. 3 уже обеспечена : )
Program z1;
const n=20; // значение n можно изменить
var i,max,min,p,imin,imax:integer;
a:array[1..n] of integer;
begin
min:=10000;
for i:=1 to n do begin
a[i]:=random(51);
if(a[i] > max) then begin max:=a[i]; imax:=i; end; // 1-ый пункт
if(a[i] < min) then begin min:=a[i]; imin:=i; end; // 2-ой пункт
write(a[i]:3);
end;
p:=a[1]; // 1-ый пункт
a[1]:=a[imax];
a[imax]:=p;
p:=a[2]; // 2-ой пункт
a[2]:=a[imin];
a[imin]:=p;
writeln();
for i:=1 to n do begin
write(a[i]:3);
end;
end.