Напишите построчную запись алгоритма нахождения среднего арифметического из трёх введенных на клавиатуре чисел и вывода на экран результата в том случае, если оно будет положительным ( напишите на языке паскаль)

Program Project;
uses crt;
var
  a,b,c: real;
  sa: real;
begin
  clrscr;
  Read(a,b,c);
  Readln;
  sa:=(a+b+c)/3;
  if sa>=0 then
   Writeln(sa:0:5);
  Readln;
end.

# подключаем библиотеку, чтобы использовать случайные числа

from random import randint  

n=int(input('Введите количество элементов массива : '))# вводим размерность массива

a=[0]*n # Создаём массив размерность n

for i in range (0, n):  #в цикле  

 a[i]=randint(1,30)   # заполняем каждый элемент случайными числави

print(a)  #печатаем исходный массив

a=sorted(a)# сортируем исходный массив

print(a) # печатаем отсортированный массив

x=int(input('Введите Х :')) #вводим Х

for i in range (n-1, 1, -1): # в цикле

 if x > a[i]:                # ищем положение, куда вставить X

   a[n-1]=a[n-1]+a[i]   # к максимальному элементу массива прибавляем #элемент который заменили

   a[i]=x    # а на его место вставляем Х

   break

print(a) # печатаем ответ

имя существительное.

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

на следующий день я, к своему огорчению, не сделала . а оно было: выучить правило, что же такое это самое словообразование.

когда меня вызвали к доске, я вспомнила начало: имя словообразование - это исходная часть а дальше забыла. но тогда был счастливый день, я и я вспомнила, и сказала:

"словообразование- это образование новых слов от похожих. например, работа - работник. и работник, это слово, которое образовалось с словообразования"

учительница поставила мне 5 (или какая у вас самая высокая и я довольная пошла домой.

из того дня я поняла одно: даже если я не знаю четко правило, можно пересказать его своими словами, и все получиться.