Уже писал, но попал в баг(
Так вот. В паскале это будет так:
1)var a,b,c:integer;
begin
readln(a,b);
if a div 2 =0 then c:=(a+b)*(a+b)*(a+b);
else c:=a*a*a+b*b*b;
writeln(c);
end.
2)var a,b,c:integer;
d:real;
begin
readln(a,b,c);
if (a<0) or (b<0) or (c<0) then d:=abs(a+b+c)
else d:=sqrt(a+b+c);
writeln(d:0:2);
end.
3)var a,b,c:integer;
begin
readln(a,b,c);
if (a*b*c<0) then begin a:=a*a; b:=b*b; c:=c*c; end
else begin a:=abs(a); b:=abs(b); c:=abs(c); end;
writeln( a, ' ', b, ' ', c);
end.
Вот так вот.
const int n = 5;
int bigger0 = 0;
int smaller0 = 0;
int sumBigger0 = 0;
int sumSmaller0 = 0;
int[] arr = new int[n];
for(int i = 0; i < n; i++){
arr[i] = Convert.ToInt32(Console.ReadLine());
}
for(int i = 0; i < n; i++){
if(arr[i] >= 0){
++bigger0;
sumBigger0 += arr[i];
}
else{
++smaller0;
sumSmaller0 += arr[i];
}
Console.WriteLine("Сумма положительных чисел: {0}\nСумма отрицательных чисел: {1}\nВсего положительных чисел: {2}\nВсего отрицательных чисел: {3}", sumBigger0, sumSmaller0, bigger0, smaller0);
}
Console.ReadKey();
Объяснение:
В пояснение не нуждается.