• Дан массив из 100 целых чисел и найти сумму элементов массива

Ответы 1

  • var  a : array [1..100] of integer;  i, sum : integer;begin  for i := 1 to 100 do read (a[i]);  sum := 0;    for i := 1 to 100 do sum := sum + a[i];  write (sum);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years