Решение в free pascal (98 ) массив 3x5 заполнить случайными числами [-10; 10]. с клавиатуры вводится номер столбца. найти среднее арифметическое элементов этого столбца. массив 5x10 заполнить случайными числами[0; 100]. найти максимальное и минимальное число, кратное 5

# Задание 1

total = 0

num = int(input())

while num != -1:

   total += num

   num = int(input())

print(total)

# Задание 2

num = input().split()

num = [int(i) for i in num]

print(max(num))

# Задание 3

from random import randint

num = randint(1, 10)

good = False

for i in range(3):

   ans = int(input())

   if ans == num:

       print('Вы угадали!')

       good = True

       break

   elif ans < num:

       print('Загаданное число больше!')

       

   else:

       print('Загаданное число меньше!')

     

if not good:

   print(f'Загаданное число - {num}')

Объяснение:

, протестируйте программы, перед тем как их сдавать куда-либо

Алгоритм на условном языке.

m:=0.  "количество отрицателных"
p:=0    "количество положительных"
i:=1.
пока i<>0 повторять
    i:=прочитать число, введенное с клавиатуры.
    если i>0 то p:=p+1.
    если i<0 то m:=m+1.
конец цикла пока.
вывести на экран('процент положительных = ', p/(p+m)).
вывести на экран('процент отрицательных = ', m/(p+m)).

Алгоритм будет верно работать, если введено хотя бы одно число, отличное от нуля. В противном случае возникнет ошибка деления на ноль. В нормальных программах подобные случаи отлавливаются и корректно обрабатываются.