Помогите пожалуйста!!! Как составить постановку, алгоритм и в PASCALe программу подсчитывающую количество положительных элементов массива W из 9 чисел. Значения элементов массива ввести с клавиатуры. Только можно поподробней)
Помогите пожалуйста!!! Как составить постановку, алгоритм и в PASCALe программу подсчитывающую количество положительных элементов массива W из 9 чисел. Значения элементов массива ввести с клавиатуры. Только можно поподробней)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы