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

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

Question

Информатика

Зорена

8 сентября, 04:39

Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 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