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

Question

Информатика: Напишите программу которая вычисляет всех положительных чисел из 10 чисел виденных на клавиатуре

Маргарита5515 · Answer

Var i, s, x:Integer ;BeginWriteln( Введите 10 чисел ) ;S:=0;For i:=1 to 10 do beginRead(x) ;If x 0 then s:=s+x;End;Writeln(s) ;End....