Запишите без пробелов пропущенную команду в данной программе, вычисления суммы элементов массива. program s;

var

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

i, s: integer;

begin

for i:=1 to 7 do

begin

a[i]=random (30);

end;

...

for i:=1 to 7 do

s:=s+a[i];

writeln (s);

end.

емкость неформатированного диска больше информационной емкости доступной для записи данных, т.е. отформатированного диска.

часть схемы, информацию - канал.

#include < stdio.h> # define in "input.txt"# define out "output.txt"unsigned long long sum(int n){unsigned long long otv=0; for (int i=1; i*i< =n; i++)if %i)){otv+=i; if(i*i! =n)otv+=n/i; }return otv; }int main(void){unsigned long long n,otv=0; freopen(in,"r",stdin); freopen(out,"w",stdout); scanf("%i64d",& n); otv=sum(n); printf("%i64d",otv); return 0; }

var

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

i,n,p: integer;

begin

readln(n);

for i: =1 to n do

begin

readln(a[i]);

p: =2;

while (p*p< =a[i]) do

begin

if p*p=a[i] then writeln (a[i],' полный квадрат')

p: =p+1;

end;

end;

end.