from random import randint
lst = []
# список з 10-тьма випадковими числами вiд -10 до 10
for i in range(10):
lst.append(randint(-10, 10))
doubled_lst = [a*2 for a in lst] # подвоюэм список та записуэм в змiнну doubled_lst
more_then_zero_in_doubled_lst = [a for a in doubled_lst if a > 0]
less_then_zero_in_doubled_lst = [a for a in doubled_lst if a < 0]
more_then_zero_in_simple_lst = [a for a in lst if a > 0]
less_then_zero_in_simple_lst = [a for a in lst if a < 0]
# виводим сумму/кiлькiсть/середнє арифметичне для НЕ подвоэного списку бiльших за 0
print("Сумма/кiлькiсть/середнє арифметичне для НЕ подвоэного, бiльшого за 0 ")
print(sum(more_then_zero_in_simple_lst))
print(len(more_then_zero_in_simple_lst))
print(sum(more_then_zero_in_simple_lst) / len(more_then_zero_in_simple_lst))
# виводим сумму/кiлькiсть/середнє арифметичне для НЕ подвоэного списку менших за 0
print("Сумма/кiлькiсть/середнє арифметичне для НЕ подвоэного, меншого за 0 ")
print(sum(less_then_zero_in_simple_lst))
print(len(less_then_zero_in_simple_lst))
print(sum(less_then_zero_in_simple_lst) / len(less_then_zero_in_simple_lst))
# виводим сумму/кiлькiсть/середнє арифметичне для подвоэного списку бiльших за 0
print("Сумма/кiлькiсть/середнє арифметичне для подвоэного, бiльшого за 0 ")
print(sum(more_then_zero_in_doubled_lst))
print(len(more_then_zero_in_doubled_lst))
print(sum(more_then_zero_in_doubled_lst) / len(more_then_zero_in_doubled_lst))
# виводим сумму/кiлькiсть/середнє арифметичне для подвоэного списку менших за 0
print("Сумма/кiлькiсть/середнє арифметичне для подвоэного, меншого за 0 ")
print(sum(less_then_zero_in_doubled_lst))
print(len(less_then_zero_in_doubled_lst))
print(sum(less_then_zero_in_doubled_lst) / len(less_then_zero_in_doubled_lst))
program mn;
uses crt;
const m=7;n=9;
var mas:array[1..m,1..n] of Integer ;
m1, m2:array[1..n] of Integer ;
i, j, k:Integer;
begin
Randomize;
write('Исходный массив:') ;
for i:=1 to m do begin
writeln;
for j:=1 to n do begin
mas[i, j]:=random(100);
write(mas[i, j]:3) end end ;
j:=0;
repeat
for i:=1 to n do begin
m1[i]:=mas[1+j,i];
m2[i]:=mas[m-j,i];
mas[1+j,i]:=m2[i];
mas[m-j,i]:=m1[i]; end;
j:=j+1
until j>m div 2;
writeln;
write('Преобразованный массив:') ;
for i:=1 to m do begin
writeln;
for j:=1 to n do
write(mas[i, j] :3) end;
readln;
end.
Объяснение:
В разделе const задаем нужный размер исходного массива.