ПРОГРАММИРОВАНИЕ ПАСКАЛЬ
Проверить, все ли строки матрицы содержат хотя бы один элемент, равный заданному числу.
Если не все, найти номер первой строки, где нет элементов, равных заданному числу.

ответ: См. снимки экрана (код в объяснении)

Объяснение:

Первая программа:

from random import randint

def geo_mean(arr):

   m = 1

   for x in arr:

       m *= x

   res = m ** (1 / len(arr))

   return res

def even_numb(arr):

   sum = 0

   for x in arr:

       if not x % 2:

           sum += x

   return sum

   res = m ** (1 / len(arr))

   return res

arr = []

for i in range(50):

   arr.append(randint(1, 10))  # Геренрирование случайных чисел

print(arr, '\n')

print("G =", geo_mean(arr))  # Среднее геометрическое

if even_numb(arr) < 240:  # Сумма четных чисел

   print("Сумма четных элементов равна", even_numb(arr))

Вторая программа:

def numb_words(s):

   s = s.split()

   l = len(s)

   if l >= 3:

       return True

def numb_letters(a):

   return len(a) - a.count(' ')

a = input("Введите фразу: ")

if (numb_words(a)):

   if numb_letters(a) < 10:

       print("Хорошо")

   else:

       print("Не хорошо")

Program Stipendiya;
type
Student = record
Ocenka: array [1..5] of Byte;
end;
var
i, j: Byte;
Summa: Integer;
Troechik: Boolean;
Studenti: array [1..25] of Student;
begin
for i:=1 to 25 do
begin
// Zapolnyaem ocenki studentov:
WriteLn('Vvedite ocenki '+IntToStr(i)+' studenta: ');
for j:=1 to 5 do
begin
Write('Ocenka za '+IntToStr(i)+' ekzamen: ');
ReadLn(Studenti[i].Ocenka[j]);
end;
end;

// Chitaem summu

S:=0;

WriteLn('');

for i:=1 to 25 do
begin
//
Troechik:=False;
//
for j:=1 to 5 do
if Studenti[i].Ocenka[j] < 4 then Troechik:=True;
//
if not Troechik then
begin
WriteLn('Vidat stipendiu '+IntToStr(i)+' studentu');
Summa:=Summa + 900;
end;
end;

// Vivod summi vsex stipendii
WriteLn('Summa vsex stipendii = '+IntToStr(Summa));
end.