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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
