Var a:array[1..100]of integer; i,sum,n:integer; begin writeln("vvedite kol-vo elementov"); read(n); sum:=0; for i:=1 to n do read(a[i]); for i:=1 to n do sum:=sum+a[i]; writeln("summa vseh elementov = ",sum); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
