Question

Решите, срочно, пожайлуста!!!!!!!!!!!!!!! Прям срочно!

Answer 1

{Первая задачка}

uses Crt;
const n=10;
type Vec=array [1..n] of integer;
var M: Vec;
    i, Sum: integer;

begin
ClrScr;
Randomize;
Sum:=0;
for i:=1 to n do
begin
  M[i]:=-2+random(3);
  Write(M[i]:4);
   if M[i]= -1 then Sum:=Sum+i;
end;
WriteLn;
WriteLn('Summa =',Sum);
ReadLn;
end.

{Вторая задачка}


uses Crt;
const n=10;
type Vec=array [1..n] of integer;
var G: Vec;
    i: integer;

begin
ClrScr;
Randomize;
WriteLn('Old Massiv: ');
for i:=1 to n do
begin
  G[i]:=1+random(20);
  Write(G[i]:4);
end;
WriteLn;
Writeln('New Massiv:');
for i:=1 to n do
begin
  if G[i]> n then G[i]:=2;
  Write (G[i]:4);
end;
WriteLn;
ReadLn;
end.