Function Sum(m: myarray): Integer
Var i, s : integer
sum:=0
For i:=1 To n do
(к уже найденной сумме первых (i-1) элементов прибавляем i-ый элемент)
s:=s+m[i];
sum:=s;
End;
Это все что я помню...
Задание дай, будет и ответ.
2)<span>программы на языках программирования </span>
4)исполняемые файлы
5)<span>архивы(zip,rar)</span>
<span>Компьютер-это устройство или система, способное выполнять заданную чётко определенную изменяемую последовательность операций.</span>