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

Pascal, цикл для, составить программу.

3) Последовательно вводятся 10 целых чисел. Определить каких среди них больше: положительных или отрицательных.

+1
Ответы (1)
  1. 17 апреля, 16:02
    0
    Program up1;

    var i, q, w, e:integer;

    begin

    for i:=1 to 10 do

    write ('введите число') ;

    read (q) ;

    if q>0 then w:=w+1;

    if q<0 then e:=e+1;

    end;

    write (w,' положительных ', e,' отрицательных') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Pascal, цикл для, составить программу. 3) Последовательно вводятся 10 целых чисел. Определить каких среди них больше: положительных или ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1. Вводятся 4 числа целого типа : a b c d. определить наибольшее среди них. 2. последовательно вводятся N целых чисел. найти сумму всех отрицательных среди них.
Ответы (1)
Помогите составить программу с оператором while вводятся 5 чисел. определить, сколько среди них положительных (включая 0) и сколько отрицательных. (числа вводятся в одну переменную в цикле).
Ответы (1)
Решить в Паскале: Последовательно вводятся N целых чисел. Определить, каких среди них чисел больше: положительных или отрицательных.
Ответы (2)
Pascal, цикл для, составить программу. 1) Последовательно вводятся 10 целых чисел. Найти среднее арифметическое этих чисел
Ответы (1)
1) Вычислить длину окружности и площадь круга одного и того же заданного радиуса R. Pascal (желательно с блок-схемой) 2) Найти сумму членов арифметической прогрессии, если известны её первый член, знаменатель и число членов прогрессии Pascal
Ответы (1)