Var ar:array[1..n] of integer; i,j,k:integer; begin randomize; writeln('First array:'); for i:=1 to n do begin ar[i]:=random(-3,3); write(ar[i]:4); end; for i:=1 to n-1 do {ммм, пузырёк. Но за быструю сортировку здесь репортят} for j:=i+1 to n do if ar[i]>ar[j] then begin k:=ar[i]; ar[i]:=ar[j]; ar[j]:=k; end; writeln; writeln('Sorted array:'); for i:=1 to n do write(ar[i]:4); writeln; for i:=1 to n do if ar[i]=0 then begin write('Index of 0 is ',i); break; end; end.
Пример работы программы: First array: -2 -3 0 -3 3 Sorted array: -3 -3 -2 0 3 Index of 0 is 4
Var ar:array[1..n] of integer; sum,i:integer; begin randomize; writeln('First array:'); for i:=1 to n do begin ar[i]:=random(-50,50); write(ar[i]:4); sum:=sum+ar[i]; end; writeln; writeln('Sum=',sum); writeln('Final array:'); for i:=1 to n do begin ar[i]:=ar[i]*5; write(ar[i]:6); end; end.
Пример работы программы: First array: 24 45 28 40 -48 -7 29 43 -23 18 Sum=149 Final array: 120 225 140 200 -240 -35 145 215 -115 90
Const
n=5;
Var
ar:array[1..n] of integer;
i,j,k:integer;
begin
randomize;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(-3,3);
write(ar[i]:4);
end;
for i:=1 to n-1 do {ммм, пузырёк. Но за быструю сортировку здесь репортят}
for j:=i+1 to n do
if ar[i]>ar[j] then
begin
k:=ar[i];
ar[i]:=ar[j];
ar[j]:=k;
end;
writeln;
writeln('Sorted array:');
for i:=1 to n do
write(ar[i]:4);
writeln;
for i:=1 to n do
if ar[i]=0 then
begin
write('Index of 0 is ',i);
break;
end;
end.
Пример работы программы:
First array:
-2 -3 0 -3 3
Sorted array:
-3 -3 -2 0 3
Index of 0 is 4