Помощь - Поиск - Пользователи - Календарь
Полная версия: Одномерные числовые массивы
Форум «Всё о Паскале» > 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.

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