Практическое задание 1. Исследование числовой последовательности (математика).
Дана числовая последовательность а., а, ..., а, а где (n=10°) и (0<a<109).
Выполните следующие задания по данной последовательности.
а) определите количество четных чисел в последовательности.
б) вычислите количество простых чисел в последовательности.
в) выведите на экран количество чисел, меньших среднего.
кто хорошо знает информатику
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))
const n=100;
var ar:array of array of integer;
ars:array of array of string;
i:integer;
procedure complection(var ar:array of array of integer;var ars:array of array of string);
var
i,j:integer;
begin;
for i:=1 to n do
begin;
for j:=1 to n do
begin;
ar[i,j]:=random(9);
str(ar[i,j],ars[i,j]);
end;
end;
end;
procedure burning(ars:array of array of string);
var
i,j:integer;
t:text;
begin;
assign(t,'text.txt');
rewrite(t);
for i:=1 to n do
begin;
writeln(t,' ');
for j:=1 to n do
write(t,ars[i,j],' ');
end;
end;
begin;
randomize;
setlength(ar,n+1);
setlength(ars,n+1);
for i:=1 to n do
begin;
setlength(ar[i],n+1);
setlength(ars[i],n+1);
end;
complection(ar,ars);
burning(ars);
end.