• В массиве В (12) случайных целых чисел (диапазон чисел [ -5..60] ) определить:а) сумму элементов
    б) количество элементов, которые меньше 7

Ответы 1

  • var B: array [1..12] of integer; i, s, s_min: integer;begin     writeln;     randomize;     s := 0;     s_min := 0;     for i := 1 to 12 do         B[i] := random(65) - 5;     for i := 1 to 12 do     begin          write(B[i], ' ');          s := s + B[i];          if B[i] < 7          then              s_min := s_min + 1;     end;     writeln();     writeln('Sum: ', s, ', amount of elemnts which lower than 7: ', s_min);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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