ЕГЭ ИНФОРМАТИКА 11 КЛАСС
ЗАРАНЕЕ

Відповідь:

from random import randint as randit

lst = []

tasklst1 = 0

tasklst2 = 0

tasklst3 = 0

for elem in range(10):

   random = randit( -10, 100 )

   lst.append(random)

for i in lst:

   if i == 0:

       tasklst1 += 1

   elif i > 0:

       tasklst2 += 1

   elif i < 0:

       tasklst3 += 1

print("Список", lst)

print("a) У списку", len(lst), "елементів")

print("b) Середнє число у списку" , sorted(lst)[len(lst) // 2])

print("c) Сума всіх елементів" , sum(lst))

print("d) Кількість нульових елементів у масиві", tasklst1)

print("f) Максимальне число у списку", str(max(lst)) + ", мінімальне число у спику", min(lst))

print("g) Кількість додатніх елементів", tasklst2)

print("h) Кількість відємних елементів", tasklst3)

Пояснення:

Відповідь:

program Pr1;

var

 a: array[1..10] of integer;

 i,k,n,s: integer;

 sr: real;

begin

 Randomize;

 k := 0;

 s := 0;

 for i := 1 to 10 do

 begin{формирование массива}

   a[i] := random(41) - 20;

   write(a[i]:5);

   if a[i] > 0 then

   begin

     S := S + A[i];

     n := n + 1;

   end;  

   if abs(a[i]) mod 10 = 7 then

     k := k + 1;

 end;

 writeln;

 WRITELN('Количество элементов на 8: ', k);  

 if n<>0 then

   begin

     SR := S / N;

     WRITELN('Среднее: ', SR);

   end

 else

   writeln('Нет отрицательных чисел.');

end.

Пояснення:

Здається так, давно не писав нічого на цій мові