Question

Помогите пожалуйста!!! Как составить постановку, алгоритм и в PASCALe программу подсчитывающую количество положительных элементов массива W из 9 чисел. Значения элементов массива ввести с клавиатуры. Только можно поподробней)

Answer 1

var
W:Array[1..9] of Integer;
i,k:Integer;
Begin
 for i:=1 to 9 do
  Read(W[i]);
for i:=1 to 9 do
 if (W[i]>0) then k:=k+1;
Writeln(k);
end.