Задать вопрос
29 октября, 21:23

Дан массив из N действительных чисел. Подсчитать, сколько в нем отрицательных, положительных и нулевых элементов.

+3
Ответы (1)
  1. 29 октября, 23:17
    0
    Var a: array[0 ... 100] of Integer;

    n, i, s, otr, pol, nol: Integer;

    begin

    otr:=0;

    pol:=0;

    nol:=0;

    writeln ('Введите кол-во чисел, не привышающие число 100') ;

    readln (n) ;

    Dec (n) ;

    for i:=0 to n do

    begin

    writeln ('Введите ', i+1,' число') ;

    readln (s) ;

    a[i]:=s;

    end;

    for i:=0 to n do

    begin

    if a[i]>0 then Inc (pol) ;

    if a[i]<0 then Inc (otr) ;

    if a[i]=0 then Inc (nol) ;

    end;

    writeln ('Положительных чисел: ', pol) ;

    writeln ('Отрицательных чисел: ', otr) ;

    writeln ('Нулей: ', nol) ;

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