Ответы и объяснения

2013-10-14T16:41:43+04:00
5 ЗАДАЧА:
const
    N = 10;
var
    a: array [1..N] of integer;
    i: integer;
begin

Writeln('Элементы массива: ');
for i:=1 to N do
begin
    a[i]:= -100 + random(201);
    Writeln('a[',i,'] = ', a[i]);
end;

Writeln; Writeln;
Writeln('Элементы нового массива: ');   
for i:=1 to N do
     Writeln('a[',i,'] = ', a[i]-1);
end.


6 ЗАДАЧА:
const
    N = 10;
var
    c: array [1..N] of integer;
    i,A,B, SUMMA: integer;
begin

Write('A = ');
Readln(A);
Write('B = ');
Read(B);

Writeln; Writeln;
Writeln('Элементы массива: ');
for i:=1 to N do
begin
    c[i]:= -100 + random(201);
    Writeln('c[',i,'] = ', c[i]);
end;

Writeln; Writeln;   
for i:=A to B do
     SUMMA:= SUMMA + c[i];

Writeln('СУММУ = ', SUMMA);
end.




огромное спасибо. если бы я не решила, то мне могли поставить 7