Получить из исходной последовательности две: первая последовательность содержит отрицательные нечетные

@hellishworld_ · Регистрация: 01.12.2014

Получить из исходной последовательности две: первая последовательность содержит отрицательные нечетные элементы; вторая последовательность содержит положительные элементы большие числа 4

@JokeR.BY · 02.12.2014, 18:05

Pascal

var
    a, b, c : Array[1..100] Of ShortInt;
    i, n : Byte;
    count1 : Byte = 0;
    count2 : Byte = 0;
begin
    Randomize;
    Write('n='); ReadLn(n);
    for i := 1 to n do
    begin
        a[i] := Random(199) - 99;
        Write(a[i]:4);
        if (Odd(a[i]) And (a[i] < 0)) then
        begin
            Inc(count1);
            b[count1] := a[i];
        end;
        if (a[i] > 4) then
        begin
            Inc(count2);
            c[count2] := a[i];
        end;
    end;
    if (count1 > 0) then
    begin
        WriteLn;
        for i := 1 to count1 do
            Write(b[i]:4);
    end;
    if (count2 > 0) then
    begin
        WriteLn;
        for i := 1 to count2 do
            Write(c[i]:4);
    end;
end.

@hellishworld_ 0 / 0 / 0 Регистрация: 01.12.2014 Сообщений: 10
		1
	Получить из исходной последовательности две: первая последовательность содержит отрицательные нечетные 02.12.2014, 17:16. Показов 1404. Ответов 1 Метки нет (Все метки) Получить из исходной последовательности две: первая последовательность содержит отрицательные нечетные элементы; вторая последовательность содержит положительные элементы большие числа 4 0

Опции темы

Получить из исходной последовательности две: первая последовательность содержит отрицательные нечетные

Решение