Задать вопрос Регистрация
Помочь другим

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

Ответы 1

  • ну если я правильно понял задание...var a,b:array[1..10] of integer;c:array[1..20] of integer;i,j,m:integer;p1:^integer;beginfor i:=1 to 10 doread(a[i]);for i:=1 to 10 doread(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 dowrite(c[i],' ');end.

    • Автор:

      simone62
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years