Program test; var a: array of integer; b: array of integer; c: array of integer; aa, bb, cc: integer; begin writeln('Введите размер массива a'); readln(aa); writeln('Введите размер массива b'); readln(bb); a := new integer[aa]; b := new integer[bb]; c := new integer[aa + bb]; cc := 0; aa := 0; bb := 0; writeln('Заполнение массива a'); while(aa < Length(a)) do begin readln(a[aa]); aa := aa + 1; end; writeln('Заполнение массива b'); while(bb < Length(b)) do begin readln(b[bb]); bb := bb + 1; end; while(cc < Length(c)) do begin if(cc < Length(a)) then begin c[cc] := a[cc] end else begin c[cc] := b[cc - Length(a)]; end; cc := cc + 1; end; writeln('Полученный массив'); cc:=0; while(cc < Length(c)) do begin writeln(c[cc]); cc:=cc+1; end;end.
Var ar:array[1..n] of integer; ar2:array[1..n] of integer; i,k:integer;
function prost(a:integer):boolean; var i:integer; b:boolean; begin b:=true; for i:=2 to a div 2 do if a mod i=0 then begin; b:=false; break; end; if a=1 then b:=false; prost:=b; end;
begin; randomize; k:=0; for i:=1 to n do begin; ar[i]:=random(101); write(ar[i]:4); end; writeln; for i:=1 to n do if prost(ar[i]) then begin; inc(k); ar2[k]:=ar[i]; write(ar2[k]:4); end; end.
var a: array of integer; b: array of integer; c: array of integer; aa, bb, cc: integer;
begin writeln('Введите размер массива a'); readln(aa); writeln('Введите размер массива b'); readln(bb); a := new integer[aa]; b := new integer[bb]; c := new integer[aa + bb]; cc := 0; aa := 0; bb := 0; writeln('Заполнение массива a'); while(aa < Length(a)) do begin readln(a[aa]); aa := aa + 1; end; writeln('Заполнение массива b'); while(bb < Length(b)) do begin readln(b[bb]); bb := bb + 1; end; while(cc < Length(c)) do begin if(cc < Length(a)) then begin c[cc] := a[cc] end else begin c[cc] := b[cc - Length(a)]; end; cc := cc + 1; end; writeln('Полученный массив'); cc:=0; while(cc < Length(c)) do begin writeln(c[cc]); cc:=cc+1; end;end.