Вариант №4 1. Опишите каждый фрагмент программы на естественном языке:
a) Var D: array[1..9] of integer;
b) for i:=1 to 9 do D[i]:=random(12)-3;
c) for i:=1 to 9 do write (CDr, i, j=", D[i]););
d) for i:=1 to 9 do if D[i] mod 3 =0 then s:=s+D[i];
e) for i:=1 to 5 do if D[i]<>0 then k:=k+1;
вот не забудь нажать Объяснение:
var
arr : Array[1..100] Of ShortInt;
temp : ShortInt;
i, j, n : Byte;
begin
Write('n='); ReadLn(n);
Randomize;
for i := 1 to n do
begin
arr[i] := Random(11) - 5;
Write(arr[i], ' ');
end;
WriteLn; WriteLn;
for i := 2 to n do
for j := n downto i do
if (((arr[j - 1] <= 0) And (arr[j] > 0)) Or ((arr[j - 1] < 0) And (arr[j] = 0)))
then
begin
temp := arr[j - 1];
arr[j - 1] := arr[j];
arr[j] := temp;
end;
for i := 1 to n do
Write(arr[i], ' ');
end.