В программе ПаскальАВС. Очень прошу помочь.

+ 0 -

CicTT

18 нояб. 2016 г., 10:34:07 (7 лет назад)

Вариант для ручного заполнения массива
var
   i, j, k, m, p: integer;
   x: array[1..13]of integer;
begin  
writeln('Вводите элементы массива по одному:');  
for i := 1 to 13 do
  begin
  readln(x[i]);
  write(x[i], ' ');
  if (i mod 2 = 0) and (x[i] mod 2 <> 0) then k := k + 1;
  if (x[i] > 0) and (m = 0) then m := i;
  end;
if m < 12 then m := m + 1;  
writeln;  
writeln('Количество искомых элементов: ', k);
for i := m to 13 do
    for j := m to 13 do
      if x[i] > x[j] then
        begin
        p := x[i];
        x[i] := x[j];
        x[j] := p;
        end;  
writeln('Измененный массив:');
for i := 1 to 13 do write(x[i], ' ');
end.

Вариант для работы только с заданными элементами массива:
var
   i, j, k, m, p: integer;
   x: array[1..13]of integer;
begin  
x[1]:=-18;
x[2]:=-25;
x[3]:=-13;
x[4]:=7;
x[5]:=9;
x[6]:=-16;
x[7]:=-4;
x[8]:=8;
x[9]:=1;
x[10]:=-7;
x[11]:=2;
x[12]:=12;
x[13]:=15;
writeln('Исходный массив:');  
for i := 1 to 13 do
  begin
  write(x[i], ' ');
  if (i mod 2 = 0) and (x[i] mod 2 <> 0) then k := k + 1;
  if (x[i] > 0) and (m = 0) then m := i;
  end;
if m < 12 then m := m + 1;  
writeln;  
writeln('Количество искомых элементов: ', k);
for i := m to 13 do
    for j := m to 13 do
      if x[i] > x[j] then
        begin
        p := x[i];
        x[i] := x[j];
        x[j] := p;
        end;  
writeln('Измененный массив:');
for i := 1 to 13 do write(x[i], ' ');
end.

Вариант для автоматического заполнения массива произвольными числами:
var
   i, j, k, m, p: integer;
   x: array[1..13]of integer;
begin 
writeln('Исходный массив:'); 
for i := 1 to 13 do
  begin
  x[i] := random(-10, 10);
  write(x[i], ' ');
  if (i mod 2 = 0) and (x[i] mod 2 <> 0) then k := k + 1;
  if (x[i] > 0) and (m = 0) then m := i;
  end;
if m < 12 then m := m + 1; 
writeln; 
writeln('Количество искомых элементов: ', k);
for i := m to 13 do
    for j := m to 13 do
      if x[i] > x[j] then
        begin
        p := x[i];
        x[i] := x[j];
        x[j] := p;
        end; 
writeln('Измененный массив:');
for i := 1 to 13 do write(x[i], ' ');
end.

+ 0 -

Io6673624настя

18 нояб. 2016 г., 12:28:26 (7 лет назад)

infor5, ты будешь решать, а то двойную работу делать?

+ 0 -

Лиза1177

18 нояб. 2016 г., 13:57:18 (7 лет назад)

Хорошо, решаю