Розробка та виконання програм на мові Pascal

writeln('Вiдемних елементiв: ',v);

writeln('Середне арифметичне суми додатнiх елементiв: ',s);

repeat until keypressed;

masiv(b,5,v,s);

writeln('Вiдемних елементiв: ',v);

writeln('Середне арифметичне суми додатнiх елементiв: ',s);

repeat until keypressed;

repeat until keypressed;

masiv(h,7,v,s);

writeln('Вiдемних елементiв: ',v);

writeln('Середне арифметичне суми додатнiх елементiв: ',s);

end.

РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ :

Введiть елементи масива :

Елемент x[1]=2

Елемент x[2]=-2

Елемент x[3]=-3

Елемент x[4]=5

Елемент x[5]=3

Елемент x[6]=4

Вiдемних елементiв: 2

Середне арифметичне суми додатнiх елементiв: 2.33

Введiть елементи масива :

Елемент x[1]=23

Елемент x[2]=-3