var p,i,x,count: integer;
begin
count := 0;
p := 0 ;
for i := 1 to 4 do begin
read (x);
if x >= 0 then begin
p := p*x;
count := count+1
end
end;
if count > 0 then begin
writeln(х );
writeln(p);
end
else
writeln('NO')
end
Переменная p в начале равняется нулю. В эту переменную будет записываться общее произведение неотрицательных чисел, умножая p на каждое неотрицательное число, но при умножении любого числа на 0 произведение будет 0, поэтому нужно в начале присвоить ей единицуВ конце выводится последнее введённое число, а нужно вывести количествоПосле end не стоит точкаПравильный вариант программыvar p,i,x,count: integer;
begin
count := 0;
p := 1;
for i := 1 to 4 do begin
read (x);
if x >= 0 then begin
p := p*x;
count := count+1
end
end;
if count > 0 then begin
writeln(count);
writeln(p);
end
else
writeln('NO')
end.
using namespace std;
int main(){
setlocale( LC_ALL, "Russian" );
float M,K,S;
int dp;
cout << "Какие действие вы будете выполнять:" << endl;
cout << "1. Сложение. " << endl;
cout << "2. Отнимание." << endl;
cout << "3. Умножение." << endl;
cout << "Введите число для выбора действия" << endl;
cin >> dp; switch(dp)
{
case 1:
cout << "Число M = ";
cin >>M;
cout <<"Число K = ";
cin >> K;
S = M + K;
cout << "\n"<<M<<"+"<<K<<"="<<S<<endl;
break;
case 2:
cout <<"Число M = ";
cin >> M;
cout <<"Число K = ";
cin >> K;
S = M - K;
cout <<"\n" << M <<"-"<<K<<"="<<S<<endl;
break;
case 3:
cout <<"Число M = ";
cin >> M;
cout <<"Число K = ";
cin >> K;
S = M *K;
cout <<"\n"<<M<<"*"<<K<<"="<<S<<endl;
break;
}
system("pause");
return 0;
}