Вывести на экран сначала четные элементы массива, потом нечетные

@lisaveta · Регистрация: 02.06.2011

Студворк — интернет-сервис помощи студентам

2. Дан массив целых чисел. Вывести на экран сначала четные элементы массива, потом нечетные.

S9 вижу ты на форуме Профи в этом вопросе! Помоги мне пожалуйста! Заранее благодарна!

@S9 · 02.06.2011, 15:06

Сообщение от lisaveta

S9 вижу ты на форуме Профи в этом вопросе!

Это преувеличение. Просто к концу сессии как правило задачи на массивы и записи остаются

Сообщение от lisaveta

2. Дан массив целых чисел. Вывести на экран сначала четные элементы массива, потом нечетные.

Pascal

{2. Дан массив целых чисел. Вывести на экран сначала четные элементы массива, потом нечетные.}
Program Solution;
 
Const
    N = 10;
    
Var
    A:Array[0..N] Of Integer;
    i,k:Integer;
Begin
    k:=0;
    Randomize;
    {Заполняем случайно массив}
    For i:=0 To N Do
        Begin
            A[i]:=Random(89)+10;{числа в 10..99}
            Write(A[i],' ');
        End;
    WriteLn;
    WriteLn('New Array');
    {Выводит сначала четные числа}
    For i:=0 To N Do
        If A[i] Mod 2 = 0 Then
            Write(A[i],' ');
    {Потом нечетные}
    For i:=0 To N Do
        If A[i] Mod 2 = 1 Then
            Write(A[i],' ');
    ReadLn;
End.

@lisaveta 6 / 0 / 0 Регистрация: 02.06.2011 Сообщений: 5
		1
	Вывести на экран сначала четные элементы массива, потом нечетные 02.06.2011, 14:50. Показов 6704. Ответов 1 Метки нет (Все метки) 2. Дан массив целых чисел. Вывести на экран сначала четные элементы массива, потом нечетные. S9 вижу ты на форуме Профи в этом вопросе! Помоги мне пожалуйста! Заранее благодарна! 0

Опции темы

Вывести на экран сначала четные элементы массива, потом нечетные

Решение