Регистрация
dianaandmasha
22.01.2021 17:15
Информатика
Есть ответ 👍

Pascal, цикл для, составить программу. 3)последовательно вводятся 10 целых чисел. определить каких среди них больше: положительных или отрицательных.

199
364
Посмотреть ответы 2

Ответы на вопрос:

GizziMix2007
GizziMix2007
4,5(56 оценок)
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.
lisopat
lisopat
4,4(34 оценок)
1.2 2.5 ответ должен быть более 20 символов, не обращай внимания на этот текст; -)

Популярно: Информатика