ПОМОГИТЕ ПОЖАЛУЙСТА!!! Очень нужно))) Из двух одномерных целочисленных массивов, по 10 элементов в каждом, сформировать новый массив, включив в него все значения, кратные 10 Заранее спасибо
Var s,i:integer; A:array[1..10] of integer; B:array[1..10] of integer; C:array[1..20] of integer; begin for i:=1 to 10 do begin read(a[i]); if a[i] mod 10 = 0 then begin s:=s+1; C[s]:=a[i]; end; end; for i:=1 to 10 do begin read(B[i]); if a[i] mod 10 = 0 then begin s:=s+1; C[s]:=b[i]; end; end; for i:=1 to s do begin write(c[i], ); end; end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
