<em>VAR</em>
<em> i, sum: Integer;</em>
<em> a: Array [1..20] of Integer;</em>
<em>BEGIN</em>
<em> for i:= 1 to 20 do </em>
<em> Read(a[i]);</em>
<em> </em>
<em> sum := 0;</em>
<em> for i := 1 to 20 do</em>
<em> sum := sum + a[i];</em>
<em> </em>
<em> Write(sum);</em>
<em>END.</em>
Если нужна программа, то вот
Проверка финансово-хозяйственной деятельности за определенный период времени
<span>Вводится в паскале последовательность из N целых чисел .Является ли последовательность возрастающей? С использованием Repeat или While.
Нет, не является.</span>
const n=10;
var a:array [1..n] of integer;
i,s,k:integer;
begin
write('Массив: ');
for i:= 1 to n do
begin
a[i]:=random (16);
write (a[i],' ');
if a[i] mod 5 = 0 then
begin
s:=s+a[i];
k:=k+1
end
end;
writeln;
if k<>0 then writeln('Среднее арифметическое элементов массива, которые делятся на 5, равно: ',s/k:0:3)
else writeln ('Элементов массива, которые делятся на 5, нет.')
end.