Получить ответ

Антон Евгеньевич Городов Немного не красиво получилось, но работает. Program vektor; const a:array[1..10] of integer = (1,2,4,7,9,12,16,20,23,31); c:array[1..6] of integer = (6,15,19,28,35,44); var f:array[1..16] of integer; i,j,z:integer; e:boolean; begin i:=1;j:=1;z:=1; while (i<=10) and (j<=6) and (z<=16) do begin if (a[i]<c[j]) and (e=false) then begin f[z]:=a[i]; if i<10 then i:=i+1 else e:=true end else begin f[z]:=c[j]; if j<10 then j:=j+1 end; write(f[z]:3); z:=z+1; end; end. 04.02.13

Еva от 100 p. 4.9 399 отзывов Рейтинг: 121 998 6-й в Учебе и науке Общаться в чате Читать ответы

Похожие вопросы