Дана квадратная матрица и вектор. Проверить, равен ли вектор какому либо столбцу или строке матрицы - Pascal ABC

  1. Дана квадратная матрица и вектор. Проверить, равен ли вектор какому либо столбцу или строке матрицы. Моя программа работает когда правильно а когда и нет. Наверное неправильно задано условие или цикл. Заранее спасибо.


textual

Код:

uses crt;
const N = 10;
var arr:array[1..N,1..N] of integer;
    vec:array[1..N] of integer;
    i,j:integer;
    v1,v2:string;
begin
writeln('Матрица:');
for i:=1 to N do
 begin
  for j:=1 to N do
   begin
    arr[i,j]:=random(9)+1;
    write(arr[i,j],'  ');
   end;
 writeln();
 end;
Writeln('Введите вектор:');
for i:=1 to N do
read(vec[i]);
for i:=1 to N do
v1:=v1+inttostr(vec[i]);
for i:=1 to N do
 begin
  for j:=1 to N do
   begin
   v2:=v2+inttostr(arr[i,j])
   end;
  if v1=v2 then writeln('Вектор содержится в  ',i,' строке')
  else  writeln('Вектор содержится в  ',i,' строке');
  v2:='';
 end;
for j:=1 to N do
 begin
  for i:=1 to N do
   begin
   v2:=v2+inttostr(arr[i,j])
   end;
  if v1=v2 then writeln('Вектор содержится в ',j,' столбце')
  else  writeln('Вектор содержится в ',j,' столбце');
  v2:='';
 end;
end.


Похожие ответы
  1. Дана действительная матрица размерности МхМ Если максимальный элемент матрицы на главной диагонали, то найти среднее арифметическое элементов, стоящих над побочной диагональю и добавить его к минимальным элементам каждой строки матрицы. В противном случае оставить без изменений. Пожалуйста, помогите.

  1. Написать программу, которая проверяет, является ли квадратная матрица симметричной относительно главной диагонали. Входные данные В первой строке записаны через пробел размер квадратной матрицы N (количество строк равно количеству столбцов) ( 1 ≤ N ≤ 100 ). В следующих N строках записаны строки матрицы, в каждой – по N натуральных чисел, разделённых пробелами. Выходные данные Программа должна вывести слово 'YES', если матрица симметричная, и слово 'NO', если матрица несимметричная.

  1. Доброго времени суток! С толкнулся вот с такой задачей:"В прямоугольной матрице выявить все подматрицы,в углах которых расположены элементы, сумма цифр которых одинакова.".Думаю над этой задачей уже дня 2, читал много форумов, но к сожалению моих знаний недостаточно чтобы хоть что нибудь понять, а работу скоро сдать нужно.Надеюсь на вашу помощь!Заранее спасибо!

  1. Всем доброго времени суток! Дана (по строкам) действительно матрица размером 7х4. Переставляя ее строки и столбики, добиться того, чтобы наибольший элемент (один из них) попал в верхний левый угол. Нужен код программы

  1. Задание. Составить подпрограмму подсчета суммы значений элементов в одномерном массиве.С помощью этой подпрограммы подсчитать суммы элементов строк произвольно заданной двухмерной матрицы и вывести номер строки с максимальной суммой.Составить блок-схему. Заранее огромное спасибо!

  1. Дана целочисленная матрица размера 5 на 5. Найти минимальный элемент

  1. Заданная матрица А размерности 3 х 5. Найти квадрат разницы количества положительных и отрицательных элементов матрицы.

  1. Определить, является ли заданная целая квадратная матрица шестого порядка симметричной (относительно главной диагонали).

  1. Дана прямоугольная матрица A(nxm). Заменить наименьший элемент каждой строк, начиная со второй, наибольшим элементом предыдущей строки. Нашел такой код, не получилось его подправить, постоянно выдает ошибки(нужно было добавить заполнение и оформление, по словам автора, что и не вышло)

  1. Детали. На клеточной поле размером NxM расположены две жесткие детали. Деталь 1 нарывает в каждой строке несколько (не ноль) первых клеток, деталь два - несколько (не ноль) последних; каждая клетка либо полностью накрыта одной деталью, либо нет. Деталь 2 начинает двигаться влево, не поворачивая, пока она не упрется в деталь 2, хотя бы одной клеткой. Написать программу, которая определяет, на сколько клеток будет сдвинута деталь 2 Ввод. В первой строке содержатся чила N и M - соотвествующии количеству строк и столбцов таблицы. далее следуют N строк, задающих расположение деталей. В каждой строке находится ровно M чисел, раздленных пробелом: 1, 2 или 0 Выход В первой строке выходного файла содержится число- колво клеток, на которое будет сдвинута деталь 2. Если сдвиг был, то в последующих N строках расположение деталей после сдвига. Ввод 45 11022 10002 10002 10022 Вывод 1 11220 10020 10020 10220