Предмет: Информатика, автор: JIococb42

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

Ответы

Автор ответа: Fen9I
0
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.
Похожие вопросы
Предмет: История, автор: dsadsad3211