Var a: array[1..10] of integer; sum, i: integer; begin sum := 0; for i := 1 to 10 do begin a[i] := random(10); write (a[i], ' '); sum := sum + a[i]; end; writeln(); write('Сумма всех элементов: ', sum); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку