Предмет: Информатика,
автор: JIococb42
Все задачи делаются в Паскале! 1) Увеличить все элементы массива A на 1. 2) Умножить все элементы массива A на 2. 3) Возвести в квадрат все элементы массива A. 4) Увеличить на 4 все элементы в первой половине массива A (считать, что в массиве чётное число элементов). 5) Разделить на 2 все элементы массива A, кроме первого и последнего (считать, что в массиве есть, по крайней мере, два элемента и все элементы чётные). 6) Умножить на 3 все элементы во второй половине массива A (считать, что в массиве чётное число элементов). 7) Найти среднее арифметическое всех элементов массива A.
Ответы
Автор ответа:
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.
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.
Похожие вопросы
Предмет: Английский язык,
автор: vero4ka1skz
Предмет: Русский язык,
автор: kitekat228
Предмет: История,
автор: dsadsad3211
Предмет: Математика,
автор: alex7496