Excel, информатика. Задания 12-20.

x1 = int(input("Введите количество элементов в первом списке "))

#создаем пустые списки

m1 = []

m2 = []

m3 = []

for i in range(x1):

   m1.append(int(input()))

s1,s2,s3= 0,0,0 #переменные для сумм

for i in range(x1): #находим сумму элементов первого массива

   s1+= m1[i]

print("Сумма элементов первого списка равна:",s1)

print("Среднее арифметическое первого списка равно",s1/x1)

x2 = int(input("Введите количество элементов во втором списке "))

for j in range(x2):

   m2.append(int(input()))

for j in range(x2): #находим сумму элементов первого массива

   s2 += m2[j]

print("Сумма элементов второго списка равна:",s2)

print("Среднее арифметическое второго списка равно",s2/x2)

x3 = int(input("Введите количество элементов в третьем списке "))

for k in range(x3):

   m3.append(int(input()))

for k in range(x3): #находим сумму элементов первого массива

   s3 += m3[k]

print("Сумма элементов третьего списка равна:",s3)

print("Среднее арифметическое первого списка равно",s3/x3)

procedure CalcArray (const Ax: array of Integer; var S: Integer; var M: Real);  // var в параметрах означает, что переменная используется для возврата значения

var

 i, c: Integer;

begin

 S := 0;

 c := 0;

 for i := 0 to High (Ax) do begin

   S := S + Ax [i];   // здесь накапливаем сумму элементов

   c := c + 1;

 end;

 M := S / c;   // когда найдена сумму, рассчитываем среднеарифметическое

end;

var

 A: array [0..4] of Integer;     // размерность массивов можно делать любой, но начинаться с 0

 B: array [0..14] of Integer;

 C: array [0..9] of Integer;

 i, s: Integer;

 m: Real;

begin

 SetConsoleCP (1251);

 SetConsoleOutputCP (1251);

 Randomize;   // инициализация датчика случайных чисел

 WriteLn ('Массив 1:');

 for i := Low (A) to High (A) do begin

   A [i] := Random (10);   // заполняем элементы массива случайными значениями

   Write (IntToStr (A [i]) + ' ');   // выводим их для вызов процедуры

 WriteLn;   // показываем возвращаемые из функции переменные

 WriteLn ('Сумма элементов = ' + IntToStr (s));

 WriteLn ('Среднеарифметическое = ' + FloatToStr (m));

 WriteLn;   // аналогично поступаем с другими массивами

 WriteLn ('Массив 2:');

 for i := Low (B) to High (B) do begin

   B [i] := Random (10);

   Write (IntToStr (B [i]) + ' ');

 end;

 CalcArray (B, s, m);

 WriteLn;

 WriteLn ('Сумма элементов = ' + IntToStr (s));

 WriteLn ('Среднеарифметическое = ' + FloatToStr (m));

 WriteLn;

 WriteLn ('Массив 3:');

 for i := Low (C) to High (C) do begin

   C [i] := Random (10);

   Write (IntToStr (C [i]) + ' ');

 end;

 CalcArray (C, s, m);

 WriteLn;

 WriteLn ('Сумма элементов = ' + IntToStr (s));

 WriteLn ('Среднеарифметическое = ' + FloatToStr (m));

end.