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

Question

Информатика

Филипка

17 октября, 15:12

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

+4

Ответы (1)

Знаете ответ на вопрос?

Святослав · 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.