Question

Все делаются в паскале! 1) увеличить все элементы массива a на 1. 2) умножить все элементы массива a на 2. 3) возвести в квадрат все элементы массива a. 4) увеличить на 4 все элементы в первой половине массива a (считать, что в массиве чётное число элементов). 5) разделить на 2 все элементы массива a, кроме первого и последнего (считать, что в массиве есть, по крайней мере, два элемента и все элементы чётные). 6) умножить на 3 все элементы во второй половине массива a (считать, что в массиве чётное число элементов). 7) найти среднее арифметическое всех элементов массива a.

Answer 1

Var
a:array [1..20] of integer;
i,sum:integer;
sr_a:real;
begin
{Zadacha_1}
for i:=1 to 20 do a[i]:=a[i]+1;
{Zadacha_2}
for i:=1 to 20 do a[i]:=a[i]*2;
{Zadacha_3}
for i:=1 to 20 do a[i]:=sqr(a[i]);
{Zadacha_4}
for i:=1 to 20 div 2 do a[i]:=a[i]+4;
{Zadacha_5}
for i:=2 to 20-1 do a[i]:=a[i] div 2;
{Zadacha_6}
for i:=20 div 2 to 20 do a[i]:=a[i]*3;
{Zadacha_7}
for i:=1 to 20 do sum:=sum+a[i];
    sr_a:= sum/20;
end.