profile
Опубликовано 5 лет назад по предмету Информатика от nikola95ska

Даны два массива А. Б. Создайте массив С расположенный в порядке возрастания 

  1. Ответ
    Ответ дан PopCop312
    ну если я правильно понял задание...
    var a,b:array[1..10] of integer;
    c:array[1..20] of integer;
    i,j,m:integer;
    p1:^integer;
    begin
    for i:=1 to 10 do
    read(a[i]);
    for i:=1 to 10 do
    read(b[i]);
    for i:=1 to 20 do begin
      m:=9999999;
      for j:=1 to 10 do begin
        if a[j]<m then begin m:=a[j]; p1:=@a[j]; end;
        if b[j]<m then begin m:=b[j]; p1:=@b[j]; end;
        end;
      c[i]:=m;
      p1^:=99999999;
    end;
    for i:=1 to 20 do
    write(c[i],' ');
    end.
Самые новые вопросы