Pascal, цикл для, составить программу.
3)Последовательно вводятся 10 целых чисел. Определить каких среди них больше: положительных или отрицательных.
Нет комментариев
Ответы
Гость 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, цикл для, составить программу.4)Ввести 12 чисел. Определить сколько чисел кратно 5....
Информатика
Помогите пожалуйста!!!!...
Список предметов
