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.