1.Поменять все положительные элементы массива на 99.2.Составить программку, вычисл.

Pascal:
1)
const n = 10;
var a:array [1..n] of integer;
     i:integer;
begin
  randomize;
  for i:=1 to n do
   begin
    a[i]:=random(21)-10;
    write (a[i]:3);
   end;
  writeln;
  for i:=1 to n do
   begin
    if a[i]gt;0 then a[i]:=99;
    write (a[i]:3);
   end;
  writeln;
end.

2)
const n = 10;
var a:array [1..n] of integer;
     p,s,i:longint;
begin
  p:=1;
  s:=0;
  randomize;
  for i:=1 to n do
   begin
    a[i]:=random(21)-10;
    if a[i]gt;0 then p:=p*a[i] else
     if a[i]lt;0 then s:=s+a[i];
    write(a[i]:3);
   end;
  writeln;
  writeln ('Proizvedenie: ',p);
  writeln ('Summa: ',s);
end.

C++:
1)
include lt;iostreamgt;
include lt;ctimegt;
include lt;cstdlibgt;
using namespace std;

int main()

  int a[10];
  srand (time(NULL));
  for (int i = 0; ilt;10; i++)
 
    a[i] = rand()%20-10;
    cout lt;lt;a[i] lt;lt;" ";
    if (a[i]gt;0)
      a[i] = 99;
 
  cout lt;lt;endl;
  for (int i = 0; ilt;10; i++)
    cout lt;lt;a[i] lt;lt;" ";
  cout lt;lt;endl;
  return 0;


2)
include lt;iostreamgt;
include lt;ctimegt;
include lt;cstdlibgt;
using namespace std;

int main()

  int a[10];
  int p = 1,s = 0;
  srand (time(NULL));
  for (int i = 0; ilt;10; i++)
 
    a[i] = rand()%20-10;
    cout lt;lt;a[i] lt;lt;" ";
    if (a[i]gt;0)
      p*=a[i];
    else if (a[i]lt;0) s+=a[i];
 
  cout lt;lt;endl;
  cout lt;lt;"Summa: " lt;lt;s lt;lt;endl
         lt;lt;"Proizvedenie: " lt;lt;p lt;lt;endl;
  return 0;