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

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

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

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

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

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

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

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

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

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