Программирование операций обработки одномерных массивов

[Sacred09]

Программирование операций обработки одномерных массивов

Подскажите, пожалуйста, ответить на вопрос:
Вычислить разность векторов А(N) и B(N).

uses crt; 
const n=10; 
var a: array[1..n] of char; 
    m,i,m_d:integer; 
begin 
  clrscr; 
  write('введите число элементов массива <=10 -'); 
  readln(m);  
  writeln('введите элементы массива неболее 1 символа'); 
  for i:=1 to m do  
   begin 
    write ('a[',i,']='); 
    readln (a[i]); 
   end; 
   writeln('контрольный вывод массива'); 
    for i:=1 to m do write ('a[',i,']=',a[i],'  '); 
   writeln;  
   write('введите номер элемент массива для удаления -'); 
   readln(m_d); 
    for i:=m_d to m-1 do a[i]:=a[i+1]; 
   writeln('итоговый вывод массива'); 
   for i:=1 to m-1 do write ('a[',i,']=',a[i],'  '); 
   readkey; 
end.

 

[Vladimir_S]

А, собственно, какое имеет отношение выложенный код к сформулированной задаче? В задаче речь, насколько я понял, идет о нахождении вектор-массива, представляющего собой разность двух исходных ЧИСЛОВЫХ векторов, а в программе рассматривается задача об исключении элемента из одномерного СИМВОЛЬНОГО массива.

 

[Sacred09]

А, собственно, какое имеет отношение выложенный код к сформулированной задаче? В задаче речь, насколько я понял, идет о нахождении вектор-массива, представляющего собой разность двух исходных ЧИСЛОВЫХ векторов, а в программе рассматривается задача об исключении элемента из одномерного СИМВОЛЬНОГО массива.

Пример!Не подходящий конечно...

 

[Vladimir_S]

Пример!Не подходящий конечно...

Ну ладно, как-то так:

uses crt; 
const n=10; 
var A,B,D: array[1..n] of integer; 
    m,i:integer; 
begin 
  clrscr; 
  write('введите число элементов массивов <=10 - '); 
  readln(m);  
  writeln('введите элементы массива A'); 
  for i:=1 to m do  
   begin 
    write ('A[',i,']= '); 
    readln (A[i]); 
   end; 
  writeln('введите элементы массива B'); 
    for i:=1 to m do  
     begin 
      write ('B[',i,']= '); 
      readln (B[i]);
      D[i]:=A[i]-B[i]; 
     end; 
  writeln;
  writeln('вывод массивов'); 
  for i:=1 to m do write (A[i]:5); 
  writeln;  
  for i:=1 to m do write (B[i]:5); 
  writeln;  
  for i:=1 to m do write (D[i]:5); 
  writeln;  
  readkey; 
end.

Проверьте, я не тестировал.

 

[Sacred09]

Проверьте, я не тестировал.

Проверил!Работает!Спасибо огромное!

 

[AlexZir]

Mr.Програмист
Ваш вариант содержит ряд ошибок и был перемещен в тему http://www.tehnari.ru/f41/t46331/