Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 10 вводимых.

1 программа с использованием while, 2 программа - repeat

Question

Информатика

Диловар

28 сентября, 18:22

Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 10 вводимых.

1 программа с использованием while, 2 программа - repeat

+4

Ответы (1)

Знаете ответ?

Юдолл · Answer 1

Program riad;

var

a:array [1 ... 10] of integer;

i, j:byte;

begin

writeln ('Vvedite chisla') ;

for i:=1 to n do

readln (a[i]) ;

i:=1;

j:=0;

repeat

if a[i]
i:=i+1;

until i=10;

writeln ('kol-vo otricat = ', j) ;

readln;

end.

Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 10 вводимых.1 программа с использованием while, 2 программа - repeat

Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 10 вводимых.

1 программа с использованием while, 2 программа - repeat