Задать вопрос
6 апреля, 13:57

Дан массив из чисел N. Определить каких элементов в массиве больше: отрицательных или положительных

+5
Ответы (1)
  1. 6 апреля, 17:55
    0
    Var a:array[1 ... 1000] of real;

    i, n, ko, kp:integer;

    begin

    write ('Введите количество элементов массива n = ') ; readln (n) ;

    for i:=1 to n do

    read (a[i]) ;

    for i:=1 to n do

    write (a[i],' ') ;

    ko:=0; kp:=0;

    for i:=1 to n do

    if a[i]>0 then kp:=kp+1 else if a[i]<0 then ko:=ko+1;

    if ko>kp then writeln ('Отрицательных элементов больше чем положительных')

    else if ko
    else writeln ('Количество положительных и отрицательных элементов равны') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дан массив из чисел N. Определить каких элементов в массиве больше: отрицательных или положительных ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1) дан массив. найти сумму положительных и нечетных и количество отрицательных четных элементов 2) Дан массив целых чисел.
Ответы (1)
1. Массив и 4 целых чисел вводится с клавиатуры. Найти и вывести произведение элементов массива. 2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива. 3.
Ответы (1)
Хотя бы 3-4 задачи! 1) Дан одномерный целочисленный массив размерностью N. Найдите количество элементов, которые кратны 3 (5). 2) Дан одномерный целочисленный массив А, состоящий из N элементов. Найти сумму всех четных элементов массива.
Ответы (1)
1) Дан одномерный массив А[N], - целых чисел. Заменить все большие 7 члены массива числом 7. Найти количество таких членов. 2) Задан массив из 10 элементов, найти произведение элементов массива. Задача №3.
Ответы (1)
Помогите решить задачи на паскаль. 1) Дан массив случайных чисел (количество элементов вводите с клавиатуры). Найти произведение всех элементов массива. 2) Дан массив случайных чисел (количество элементов вводите с клавиатуры).
Ответы (1)