Вexcel посчитать-средний возраст уволенных-самую частую причину увольнения-количество различных причин увольнения

var  

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

n, i: byte;  

sum, p: integer;

begin  

Randomize;  

readln(n);  

sum:=0; p:=1;  

for i:=1 to n do    

begin      

a[i]:=Random(101)-50;      

write(a[i]:4);      

sum:=sum+a[i];      

p:=p*a[i];    

end;  

writeln;  

writeln('Сумма = ', sum:5);  

writeln('Произведение = ', p:5);  

sum:=0; p:=1;  

writeln('');  

writeln('2. С клавиатуры');  

for i:=1 to n do    

begin    

write('Элемент ', i, ' = ');    

readln(a[i]);    

sum:=sum+a[i];    

p:=p*a[i];    

end;  

writeln('Сумма = ', sum:5);  

writeln('Произведение = ', p:5);

end.

Подробнее - на -

Дополню предыдущий ответ.

в первой строке получили из файла элементы, запомнили в f

скорее всего они там находятся в формате str((думаю в файле были цифры разделенные пробелами)

соответственно сейчас у нас f представляет строку состоящую из чисел разделенных пробелами

с f.split() разбиваем строку по определенными символам(символ указывается в кавычках внутри скобок), когда скобки пустые, разбивка происходит по пробелу

функция вернула нам массив, теперь f представляет массив из чисел в формате str

функция map в данной случае из формата str делает все элементы массива форматом int(в скобках функции указываем нужный формат, а через запятую объект)

однако функция map вернула нам f в формате map

соответственно используя list(f) мы приводим f к формату list(так можно делать со всеми типами данных, int(...), str(...) (если конечно приведение к другому типу возможно))