Написать программу для нахождения количества элементов массива

Question

Информатика

Сона

1 июня, 12:15

Написать программу для нахождения количества элементов массива

+5

Ответы (1)

Знаете ответ на вопрос?

Эсмеральда · Answer 1

Вот так, да?

var

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

i, s: integer;

begin

s : = 1;

for i : = 1 to 100 do read (a[ i ]) ;

for i : = 1 to 100 do

if a[ i ] < 0 then s : = s * a[ i ];

writeln ('Proizvedenie = ', s) ;

end.