ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ .

Question

ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ .

---

Answer 1

Var mas:array[0..9] of integer;
     index,sum,proiz:integer;
begin
proiz:=1;
      for index:=0 to 9 do begin 
           mas[index]:=random(100);
           write(mas[index]," ");
           if (index mod 2 =0) then
                   proiz:=proiz*mas[index]
           else
                    sum:=sum+mas[inidex];
       end;
writeln();
write(sum," ",proiz);

readln();
end.

2з)var mas:array[0..100] of integer;
     index,indexMin,min,n:integer;
begin
      readln(n);min=1000;
       for index:=0 to 9 do begin 
           mas[index]:=random(100);
           write(mas[index]," ");
             if (mas[index]                                                                indexMin:=index;
               end;
          end;
writeln();
for i:= indexMin to n do begin
       mas[index]:=mas[index]*mas[index];
        write(mas[index]," ");
end;

readln;
end.