30
можно блок схему решения этих . заранее огромное за ! мы начали решать массивами​

from random import randint

S1 = [randint(1,100) for i in range(20)]

summa1 = 0

summa2 = 0

for i in S1:

   if i % 2 == 0:

       summa1 += i

   else:

       summa2 += i

print(f"Сумма чётных = {summa1}")

print(f"Сумма нечёт = {summa2}")

print(max(S1)) # Значение наибольшего элемента в массиве

print(min(S1)) # Значение наименьшего элемента в массиве

summa = 0

for i in S1:

   if i < 30:

       summa += i

print(f"Сумма чисел меньше 30-ти = {summa}")

summa = S1[2]

for i in S1:

   summa *= i

print(f"Произведение элементов с индексов 2({S1[2]}) = {summa}")

Везде значения вводятся с клавиатуры!
на java
если изучали массив:
public class qwert {
public static void main(String args[]) {
Scanner scn = new Scanner(System.in);
int[] a = new int[5];
int k = 0;
for (int i = 0; i < 5; i++) {
a[i] = scn.nextInt();
k = k + a[i];
if (i == 4)
System.out.println(k/i);
}
}}
если не изучали массив:
public class qwert {
public static void main(String args[]) {
Scanner scn = new Scanner(System.in);
int a = scn.nextInt();
int b = scn.nextInt();
int c = scn.nextInt();
int d = scn.nextInt();
int e = scn.nextInt();
int s = (a + b + c + d + e) / 5;
System.out.println(s);
}}
на паскале через массив:
var a:array [1..5] of integer;
i:integer;
s:real;
begin
for i := 1 to 5 do
begin
readln(a[i]);
s := s + a[i];
if i = 5
then
write (s/i);
end;
end.
не через масивы:
var a,b,c,d,e :integer;
s:real;
begin
readln(a,b,c,d,e);
s := (a+b+c+d+e)/5;
write(s);
end.