Держи
//FIXED
var
a:array[1..10000] of integer;
i,m,n,fl, tmp : integer;
Begin
Writeln('Введите кол-во элементов в массиве');
Readln(n);
Writeln('Введите элеметы массива: ');
for i:= 1 to n do
Read(a[i]);
m:=n;
repeat
fl:= m; m:= 0;
for i:=1 to fl-1 do
if a[i+1] < a[i] then
begin
m:=i;
tmp:=a[i];
a[i]:=a[i+1];
a[i+1]:=tmp;
end;
until m=0;
for i:= 1 to n do
Write(a[i], ' ');
end
1)const N=5;
M=6;
var
a: array [1..N,1..M] of integer;
b: array [1..M] of integer;
i,j:integer;
begin
for i:=1 to N do
begin
b[i]:=1;
for j:=1 to M do
begin
a[i,j]:=random(21)-10;
write(a[i,j]:4);
end;
writeln;
end;
b[M]:=1;
writeln;
for j:=1 to M do
begin
for i:=1 to N do
begin
if (a[i,j]>=0) and (a[i,j] mod 2=0) then
b[j]:= b[j]*a[i,j];
end;
write(b[j]:4);
end;
end.
2)const N=5;
M=6;
var
a: array [1..N,1..M+1] of integer;
i,j:integer;
begin
for i:=1 to N do
begin
a[i,m+1]:=0;
for j:=1 to M do
begin
a[i,j]:=random(51)-25;
write(a[i,j]:4);
if a[i,j]<0 then inc(a[i,m+1]);
end;
writeln;
end;
writeln;
for i:=1 to N do
if a[i,M+1]=2 then write(i:4);
end.
3) Порешай самостоятельно
1 файл - случай б.
2 файл - случай а.
1,2,3,4,5,6,7
Всегда пожалуйста.