Массив

01.01.2001

Массив
Массив задан датчиком случайных чисел на интервале [-31, 45]. Сформировать новый массив В, состоящий из нечетных элементов массива А. Размер произвольный.
Помогите написать программу в Паскаль. спасибо!

  • uses crt;
    const n=5;
    var a,b:array[1..n] of integer;
    i,s,r,k:integer;
    begin
    for i:=1 to n do begin
    a[ i ]:=random(87)-31;
    if a[ i ] mod 2 <>0 then begin inc(r);inc(k);b[ r ]:=a[ i ]; end;
    end;
    for r:=1 to k do
    writeln(b[r]);
    end.

    Размер по умолчанию 5. Чтобы изменить, поменяй значение в 2-ой строчке

  • Сколько?
  • для учеников сперва сюда http://acmp.ru/article.asp?id_text=195, чтобы по меньше вопросов было в дальнейшем, если уж не разберешься как из многих сделать один, пиши
  • for i:=1 to n do begin
    a [ i ] := random(87)-31; write(a [ i ] end;
    k:=0;
    for i:=1 to n do
    if odd(a [ i ] then begin inc(k); b[ k ] :=a [ i ] end;

Вас заинтересует