Подпрограммы. Найти ошибку

@kag3897 · Регистрация: 24.12.2015

Студворк — интернет-сервис помощи студентам

Помогите найти ошибку.
Задание: Создать процедуру, формирующую вектор vector(2n-1) из максимальных элементов диагоналей целочисленного квадратного массива matrix(nn), параллельных его главной диагонали.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Program LAB7_2;
uses crt;
type mas=array[1..20, 1..20] of integer;
var n, i, j: integer;
    v:array[1..40] of integer;
    a:mas;
procedure Vector(a:mas);
var x, y, i, j, max : integer;
begin
   for i := 1 to 2 * n - 1 do
   begin
        if (i <= n) then
        begin
           x := i;
           y := 1;
        end
        else
        begin
           x := n;
           y := i - n + 1;
        end;
        while((x > 0) and (y <= n)) do
        begin
             if a[x, y] > max then
                max := a[x, y];
             x := x - 1;
             y := y + 1;
        end;
        v[i] := max;
   end;
readln;
end;
begin
   write('Введите размер матрицы=');
   readln(n);
   writeln('Введите',n*n,' элементов:');
   for i := 1 to n do
       for j := 1 to n do
       begin
           write('a[',i,',',j,']=');
           read(a[i,j]);
       end;
   writeLn('Начальная матрица');
   for i:=1 to n do
   begin
        for j:=1 to n do
            write(a[i,j]:4);
        writeLn;
   end;
   Vector(a);
   writeln('Вектор:');
   for i := 1 to 2 * n - 1 do
       write(v[i], ' ');
   writeln;
   readln;
end.

@Puporev · 28.12.2015, 12:30

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Program LAB7_2;
uses crt;
type mas=array[1..20, 1..20] of integer;
     vec=array[1..41] of integer;
procedure Vector(a:mas;n:integer;var v:vec);
var x,y,i,j:integer;
begin
for i:=1 to 2*n-1 do
 begin
  if i<=n then
   begin
    x:=n-i+1;
    y:=1;
   end
  else
   begin
    x:=1;
    y:=i-n+1;
   end;
  v[i]:=a[x,y];
  while((x<=n) and (y<=n)) do
   begin
    if a[x,y]>v[i] then v[i]:=a[x,y];
    x:=x+1;
    y:=y+1;
   end;
  end;
readln;
end;
var n, i, j: integer;
    v: vec;
    a:mas;
begin
clrscr;
repeat
write('Введите размер матрицы от 2 до 20 n=');
readln(n);
until(n in [2..20]);
writeln('Введите',n*n,' элементов:');
for i := 1 to n do
for j := 1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Начальная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeLn;
 end;
Vector(a,n,v);
writeln('Вектор:');
for i := 1 to 2 * n - 1 do
write(v[i], ' ');
readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .