Динара хотела скачать файл «Меню проект» с папки общего доступа «Все проекты» и папку -«Для проверки». Допишите алгоритм как ей по сделать. Открыть папку общего доступа
.
Щелкните правой кнопкой мыши по файлу .
В открывшемся списке выбрать команду .
Открыть на компьютере, нажать на команду и контекстном меню.
Program Test;
var
Mas: array[1..10] of integer;
result1: integer;
result2: real;
function Sum(): integer;
var summa: integer;
begin
summa := 0;
for var i := 1 to 10 do
summa := summa + Mas[i];
Sum := summa;
end;
procedure Arifmetic(r1: integer; var A: real);
begin
A := r1 / 10;
end;
Begin
for var i := 1 to 10 do
begin
Write('Введите ', i, ' элемент: ');
Readln(Mas[i]);
end;
result1 := Sum();
Arifmetic(result1, result2);
Writeln();
Writeln('Сумма = ', result1);
Writeln('Среднее арифметическое = ', result2);
End.