VPF::[Pasсal] Подсчитать число положительных и других

orc12

Дата 22.12.2006, 01:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 22.12.2006

Репутация: нет
Всего: нет

Помогите составить программу.

Подсчитать число положительных, отрицательных и нулевых компонентов вещественного массива из 10 элементов.Если отрицательных элементов окажется больше, то поменять знаки всех элементов массива на противоположные.

a=(-22; 5; -8; 3; 0; 9; -1; 7; 0; 1;)

Заранее огромное спасибо!!!!

doomik

Дата 22.12.2006, 03:16 (ссылка)

(нет голосов)

Загрузка ...

Одинокий волк

Профиль
Группа: Участник
Сообщений: 360
Регистрация: 25.10.2005
Где: #vingrad

Репутация: 3
Всего: 15

Код


program For_arc12;
var
    A:array[1..10] of real; { Создаём вещественный массив  }
    Otriz, Polo, Null, I:byte; 
begin
Otriz := 0; { Инициализация счётчика отрицательных чисел }
Polo := 0; {Инициализация счётчика положительных чисел }
Null := 0;{ Инициализация счётчика нулевых чисел }
    for I := 1 to 10 do { заполнения массива }
        begin 
            writeln('Enter element:');
            readln(A[I]);
            if ( A[I] = abs(A[I])) and ( A[I] <> 0 ) then { проверка если число положительное }
                Polo := Polo + 1;
            if ( A[I] <> abs(A[I])) then { проверка если число отрицательное}
                Otriz := Otriz + 1;
            if ( A[I] = 0 ) then { проверка если число нуль }
                Null := Null + 1;
        end;

    if ( Otriz > Polo ) and ( Otriz > Null ) then { проверка если отрицательных чисел больше чем остальных }
        begin
            for I:=1 to 10 do
                A[I] := A[I] * (-1); { смена знаках всех елементов массива }
        end;

    for I := 1 to 10 do { печать массива }
    writeln(A[I]);
end.

Я добавил заполнение массива, и печать, эт так на всякий пожарный если чего просто уберай smile

--------------------

"Единственный способ изучать новый язык программирования - писать на нем
программы."
- Brian Kernighan

Remember, st1ng3r
/server irc.ircline.ru /j #vingrad

orc12

Дата 22.12.2006, 15:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 22.12.2006

Репутация: нет
Всего: нет

Спасибо ОГРОМНОЕ! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »