Помощь - Поиск - Пользователи - Календарь
Полная версия: Одномерные числовые массивы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
ёжик
Составить программу ввода двух одномерных массивов A и B размерностью n, A=|a1,a2,...,an|, B=|b1,b2,...,bn| и вычисления алгоритмической разности двух векторов - вектора C=|c1,c2,...,cn|, по формуле С:=a:-b:, i=1,2,...,n
Гость
люди добрые помогите написать программу
Boss
В чем проблема??? Делаешь ввод по элементно массивов А и В, а потом цикл от 1 до n, и пишешь ф-лу
C[i] := A[i] - B[i];

Посмотри в FAQ Задачи с массивами
Гость
непонятно, уже голова не работает, а завтра работу сдать надо может кто-нибудь сможет написать быстренько
Boss
Какой вид ввода??? Пользовательский или случайный???

Добавлено через 13 мин.
uses crt;  
const n = 10;  
type mas = array[1..n] of integer;  
var a, b, c : mas;      
      i : integer;  
Begin       
        Randomize;
        clrscr;
        for i := 1 to n do       
           begin            
              a[i] := -50 +random(100-1);            
              b[i] := -50 +random(100-1);       
           end;       
        for i := 1 to n do       
           write(a[i]:3, ';');       
        writeln;       
        for i := 1 to n do       
           write(b[i]:3, ';');       
        writeln;       
        for i := 1 to n do       
           begin            
               c[i] := a[i] - b[i];            
               write(c[i]:3, ';');       
           end;       
        readln;  
end.  

Ихмо стыдно писать...
Гость
огромное спасибо
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.