ПОМОГИТЕ! Даю 15 БАЛЛОВ: Увеличить ** 4 все элементы в первой половине массива...

Question

ПОМОГИТЕ! Даю 15 БАЛЛОВ: Увеличить на 4 все элементы в первой половине массива А (считать, что в массиве чётное число элементов)

Answer 1

Ответ:

Program primer;

Uses crt;

var i,n: integer;

a:array[1..100] of integer;begin clrscr;

randomize;

write('Pazmer massiva  = ');  

readln(n);      

for i:=1 to n do      

a[i]:= random(100)-50;

for i:=1 to n do      

write(a[i]:5);

writeln;      

writeln;    

for i:=1 to (n div 2) do      

write((a[i]+4):5);            

for i:=((n div 2)+1) to n do      

write(a[i]:5);      

readln;

end.