Увеличить все элементы массива a на 1

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

Ответы

xn-нечётное тогда, когда n-чётное

program p_1; var x,y: real; beginwriteln (‘vvedite x’); readln(x); writeln (‘vvedite y’); readln(y) ; if x=1 then y: =3; <на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и >x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,”,y); readln; end.

var i,s,p: integer; a: array [1..100] of integer;

writeln(‘vvedite masiv a: ‘);

for i: =1 to 10 do begin

for i: =1 to 10 do begin

if a[i]> 0 then s: =s+a[i];

writeln(‘udvoennaya suma polozhitelnih elementov=’,s);

writeln(‘indexi elementov kotorie bolshe prediduschego: ‘);

for i: =2 to 10 do begin

if a[i]> a[i-1] then write(i,’, ‘);

for i: =2 to 10 do begin

if ((a[i]> =0) and (a[i-1]> =0)) or ((a[i] 0 then writeln(‘masiv imeet pari sosednih elementov s odnakovimi znakami’) else writeln(‘masiv ne imeet pari sosednih elementov s odnakovimi znakami’);

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

Читайте также:  Цветы для вставки в ворд

var
a:array [1..20] of integer;
i,sum:integer;
sr_a:real;
begin

for i:=1 to 20 do a[i]:=a[i]+1;

for i:=1 to 20 do a[i]:=a[i]*2;

for i:=1 to 20 do a[i]:=sqr(a[i]);

for i:=1 to 20 div 2 do a[i]:=a[i]+4;

for i:=2 to 20-1 do a[i]:=a[i] div 2;

for i:=20 div 2 to 20 do a[i]:=a[i]*3;

for i:=1 to 20 do sum:=sum+a[i];
sr_a:= sum/20;
end.

Другие вопросы из категории

Дано трехзначное число (вводится одно число).

1Найти число, полученное при прочтении его цифр справа налево.
2В нем зачеркнули первую слева цифру и приписали ее в конце. Найти полученное число.
3 В нем зачеркнули последнюю справа цифру и приписали ее в начале. Найти полученное число.
4Найти число, полученное при перестановке первой и второй цифр заданного числа.
5Найти число, полученное при перестановке второй и третьей цифр заданного числа.

Программа должна ввести 1 число и вывести 6 чисел, каждое на отдельной строке: первые пять чисел ответы на пять вопросов, шестое – сумма предыдущих пяти чисел.

Например, дано 123, программа должна вывести

Ответ предоставить в виде файла с расширением pas, который содержит текст программы. Перед отправкой файла убедитесь, что ваша программа запускается.

.
1.Скорость доступа внутренней памяти
а) быстрый доступ
б) медленный доступ
.
2. Скорость доступа внешней памяти
а) быстрый доступ
б) медленный доступ
.
3. Средний объём внутренней памяти
а) средний объём от 10 до 30 Гбайт
б) средний объём от 32 до 128 Мбайт
.
4. Средний объём внешней памяти
а) средний объём от 10 до 30 Гбайт
б) средний объём от 32 до 128 Мбайт

Оцените статью
Добавить комментарий

Adblock detector