uses crt;
type
massiv = array [1..100] of integer; // объявляем свой тип данных
var
mass : massiv ;
sum, proiz , i , n: integer;
begin
clrscr;
write('Введите длину массива : '); readln(n);
sum := 0 ;
proiz := 1 ; // единица потому что у нас умножение, если умножать на 0 будет 0 всегда!!
for i:=1 to n do
begin
write('Введите ', i , ' элемент : '); readln(mass[i]);
if (mass[i] mod 2 = 0) then sum := sum + mass[i]
else proiz := proiz * mass[i];
end;
writeln('Сумма четных равна ', sum);
writeln('Произведение нечетных равно ', proiz);
readln; // чтобы программа не закрывалась
end.
Как-то так, наверное
Объяснение:
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
double a, x, b, c, D;
cout<<"Введите a: "; cin >> a;
cout<<"Введите b: "; cin >> b;
cout<<"Введите c: "; cin >> c;
D = pow(b,2)-4*a*c;
if(D>0){
cout << "x1 = " << ((-1)*b+sqrt(D))/(2*a)<<endl;
cout << "x2 = " <<((-1)*b-sqrt(D))/(2*a)<<endl;
}
else if(D==0){
cout << "x = " << ((-1)*b)/(2*a)<<endl;
}
else{
D*=(-1);
cout<< "x1 = " << ((-1)*b)/(2*a) <<"+"<< (sqrt(D))/(2*a) << "*i" <<endl;
cout<< "x2 = " << ((-1)*b)/(2*a) <<"-"<< (sqrt(D))/(2*a) << "*i" <<endl;
}
return 0;
}
