Информатика.
Задания 4 и 5.

Pascal

const

 n=6;

var

a, b :array[0..n-1] of integer;

i :integer;

begin

 for i:=0 to n-1 do begin

   write('Введите a[', i+1, '] :');

   readln(a[i]);

 end;

 writeln();

 writeln('Увеличиваем каждый элемент в 2 раза');

 for i :=0 to n-1 do begin

   b[i]:= 2*a[i];

   write(b[i], ' ');

 end;

 writeln();

 writeln('Увеличиваем на 5 все элементы проме 1-го и последнего');

 for i:=0 to n-1 do begin

   if (i=0) or (i=n-1) then

     b[i]:= a[i]

   else

     b[i]:= a[i] +5;

   write(b[i], ' ');

 end;

 writeln();

 writeln('Первую половину массива увеличиваем на 1, вторую в 2 раза');

 for i:=0 to n-1 do begin

   if i < n div 2 then

     b[i]:= a[i]+1

   else

     b[i]:= 2 * a[i];

   write(b[i], ' ');

 end;

end.

import array

a = array.array ('i',[])

import random

_summ = _elem = 0

_len = int (input ("Lenght: "))

for l in range(_len):

   a.append(random.randrange(0,700))

   if a[l] < 50:

       _summ+=a[l]

       _elem+=1

print ("Summ: ", _summ)

if _elem != 0:

   print("Average: ", _summ/_elem)

else:

   print("Average: 0!")

print("Mass: ", a)

Результат работы:

Lenght: 20

Summ:  7

Average:  7.0

Mass:  array('i', [266, 89, 7, 407, 506, 130, 630, 362, 419, 82, 639, 619, 695, 383, 685, 477, 368, 81, 62, 199])

Lenght: 5

Summ:  18

Average:  18.0

Mass:  array('i', [486, 170, 18, 183, 307])