// PascalABC.NET 3.0, сборка 1088 const m=20; var a:array[1..m] of integer; i,n,p:integer; begin Randomize; Writeln('Элементы массива'); for i := 1 to m do begin a[i]:=Random(61)-30; Write(a[i],' ') end; Writeln(#13#10,'Попарные произведения'); n:=0; for i:=1 to m-1 do begin p:=a[i]*a[i+1]; Write(p,' '); if p<0 then Inc(n) end; Writeln(#13#10,'Количество произведений равно ',n) end.
Тестовое решение: Элементы массива 8 0 25 -17 14 -13 -5 -3 1 29 0 2 1 27 -6 -20 -19 -28 -7 -16 Попарные произведения 0 0 -425 -238 -182 65 15 -3 29 0 0 2 27 -162 120 380 532 196 112 Количество произведений равно 5
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;
}