№1. логические выражения:
( форму имеет выражение, в котором отсутствует двойное отрицание
и знаки отрицания находятся только над логическими переменными.)
1. 1+а·0=
2. х·х·1=
3. 0·х+0=
4. 0+х·1=
5. в·(а + (а·в))=
6. (а + с) · (а + с) · (в + с) =
7. (а·в) + а·в + а·в + в·с=
8. d + a·b·c·(b+c) =

Объяснение:

Var a,b:array [1..100,1..100] of real;

   current_row,current_column,rows,columns:integer;

begin

 readln(rows);

 readln(columns);

 for current_row := 1 to rows do begin

   writeln();

   for current_column := 1 to columns do begin

     read(a[current_row,current_column]);

     b[current_row,current_column] :=a [current_row,current_column] / 8;

   end;

 end;

 for current_row := 1 to rows do begin

   writeln();

   for current_column := 1 to columns do

     write(b[current_row,current_column]:4, ' ');

 end;

end.

Программа:

Python:

№1)

arr = []

n, j = int(input()), 0

while n != 0:

   arr.append(n)

   n = int(input())

for i in arr:

   if i > (sum(arr)/len(arr)):

       j += 1

print(f'{arr}\n{j}')

№2)

from random import randint

arr = [randint(-100, 100) for i in range(10)]

print(arr)

summ = 0

for i in range(10):

   n = int(input())

   arr.append(n)

   summ += n

print(arr)

for i in arr:

   if i > summ: print(i, end=' ')

№3)

from random import randint

N = int(input('N = '))

arr = [randint(-100, 100) for i in range(N)]

print(arr)

for i in range(N):

   j = int(input())

   arr.append(j)

print(arr)

razn, summ = max(arr) - min(arr), 0  

for i in arr:

   if i > razn:

       summ += i

print(summ)