<span>Var A,P:real;
N:integer;
Begin
P:=1;
Write('N = ');ReadLn(N);
WriteLn('Введи массив');
For N := 1 to N do
Begin
ReadLn(A);
if (N mod 2 = 0)and(A>0) then P:=P*A
End;
WriteLn(P)
End.</span>
<em>var <имя файловой переменной>: file of <тип данных>;</em>
Program aaa;
var
a,b,c,d,s: real;
begin
writeln('введите a, b, c, d');
readln(a,b,c,d);
if (a*b+c*d)>=(a*c+b*d)
then
if (a*b+c*d)>=(a*d+b*c)
then s:=a*b+c*d
else s:=a*d+b*c
else
if (a*c+b*d)>=(a*d+b*c)
then s:=a*c+b*d
else s:=a*d+b*c;
writeln(s)
end.
#include <iostream>
using namespace std;
int main()
{
int n;
float a;
cin >> n;
int kp = 0, kn = 0;
for(int i = 1; i <= n; i++)
{
cin >> a;
if (a > 0) kp++;
else if(a < 0) kn++;
}
if (kn > kp) cout << "verno";
else cout << "neverno";
return 0;
}