Ответ:
program Multi;
var
a, b: Real;
begin
Write ('Введите 2 числа: ');
ReadLn (a, b);
if a * b > 0 then
WriteLn ('Произведение положительно')
else if a * b < 0 then
WriteLn ('Произведение отрицательно')
else
WriteLn ('Произведение равно 0');
ReadLn;
end.
231 вот вроде послеыждцбадв
//Pascal ABC.NET 3.1 сборка 1219
Var
n,a,b:integer;
x:array of integer;
procedure vvod(n:integer; var x:array of integer);
begin
x:=readarrinteger(n);
end;
begin
readln(n,a,b);
vvod(n,x);
var sub1:=x.Where(x -> x<a);
var sub2:=x.Where(x -> x>b);
var sub:=sub1+sub2;
n:=1;
writeln('Сумма не вошедших:',sub.Sum);
foreach var i in sub do
n:=n*i;
writeln('Произведение не вошедших:',n);
writeln('Количество не вошедших:',sub.Count);
writeln('Все элементы:',sub);
end.
Пример ввода:5
1
5
-1
-2
4
5
6
Пример вывода:Сумма не вошедших:3
Произведение не вошедших:12
Количество не вошедших:3
Все элементы:[-1,-2,6]
#include <iostream>
using namespace std;
int main() {
int n,i;
cout<<"Vvedite celoe chislo n " ;
cin>>n;
double a[n];
double b[n];
cout<<"Vvedite elementi a ";
for(i=0;i<n;i++) {
cout << "a[" << i+1 << "]= ";
cin>>a[i];
}
b[0]=a[0];
b[n-1]=a[n-1];
for(i=1; i<n-1; i++) b[i]=a[i]+a[i+1];
for (i=0;i<n;i++){
cout << " b[" << i+1 << "] = " << b[i];
}
return 0;
}
