const n=10; Var a: array[1..10] of integer; i: integer; s,k: real; Begin k:=0; s:=0; For i:=1 to n do begin write ('Числа = '); readln (a[i]); if a[i] mod 7 = 0 then s:=s 1 else k:=a[i] k; end; writeln('Кол-во элементов кратных 7 = ',s); writeln('Сумма остальных= ',k); End.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
