Ошибка ввода массива

@Romazes · Регистрация: 04.02.2013

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

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

2.код

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
Program zad;
Uses crt;
Var
 i,j:integer;
 a:array[1..10,1..10] of integer;
 s:array[1..10] of integer;
Begin
     for i:=1 to 10 do
         begin
              for j:=1 to 10 do
                  write(' ',a[i,j]);
         end;
For i:=1 to 10 do
    begin
    S[i]:=0;
            if a[i,i]<0
               then
                   for j:=1 to 10 do
                       s[i]:=s[i]+a[i,j];
    end;
for i:=1 to 10 do
writeln('s[',i,']=',S[i]);
readln;
End.

Массив со старта программы задаётся нулями, в чём ошибка ?

@Cyborg Drone · 22.12.2013, 23:29

Сообщение от Romazes

Массив со старта программы задаётся нулями

Не факт. Никогда не используйте умолчания. Задайте начальные значения элементов массива врукопашную.

@Romazes · 22.12.2013, 23:32 **[ТС]**

Исправь что не правильно, не пойму

Добавлено через 1 минуту

Сообщение от Cyborg Drone

Не факт. Никогда не используйте умолчания. Задайте начальные значения элементов массива врукопашную.

Как задать?

@Cyborg Drone · 23.12.2013, 00:01

Не по теме:

Сейчас. Минут 10, я так думаю.

Добавлено через 16 минут
Вот. Подрихтовал.

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
Program zad;
 
//Uses crt;  //управление монитором не требуется.
Var i, j:integer;
    a:array[1..10,1..10] of integer;
    s:array[1..10] of integer;
Begin
randomize;
for i:=1 to 10 do
  begin
    for j:=1 to 10 do
      begin
        a[i, j] := random(198) - 99;
        write(a[i,j]:4)
      end;
    writeln
  end;
For i:=1 to 10 do
  begin
    S[i]:=0;
    if a[i,i] < 0 then for j := 1 to 10 do s[i] := s[i] + a[i,j]
  end;
for i:=1 to 10 do if a[i,i] < 0 then writeln('s[', i:2, '] = ', S[i]);
readln;
End.

@Romazes · 23.12.2013, 00:21 **[ТС]**

Cyborg Drone, Интересно получилось )

Добавлено через 6 минут

Сообщение от Cyborg Drone

Не по теме:

Сейчас. Минут 10, я так думаю.

Добавлено через 16 минут
Вот. Подрихтовал.

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
Program zad;
 
//Uses crt;  //управление монитором не требуется.
Var i, j:integer;
    a:array[1..10,1..10] of integer;
    s:array[1..10] of integer;
Begin
randomize;
for i:=1 to 10 do
  begin
    for j:=1 to 10 do
      begin
        a[i, j] := random(198) - 99;
        write(a[i,j]:4)
      end;
    writeln
  end;
For i:=1 to 10 do
  begin
    S[i]:=0;
    if a[i,i] < 0 then for j := 1 to 10 do s[i] := s[i] + a[i,j]
  end;
for i:=1 to 10 do if a[i,i] < 0 then writeln('s[', i:2, '] = ', S[i]);
readln;
End.

Теперь массив не отредактирован

@Cyborg Drone · 23.12.2013, 02:01

Сообщение от Romazes

массив не отредактирован

Ну да. Он задаётся с помощью генератора случайных чисел. Впредь старайтесь составлять задание максимально точно, телепатов не бывает.

Добавлено через 9 минут
Вариант с вводом с клавиатуры.

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
Program zad;
 
const m = 4;
 
//Uses crt;  //управление монитором не требуется.
Var i, j:integer;
    a:array[1..m, 1..m] of integer; //хватит и 4, а то 100 значений вводить запаришься
    s:array[1..m] of integer;
Begin
for i:=1 to m do for j:=1 to m do
  begin
    write('a[', i, ', ', j, '] = ');
    readln(a[i, j])
  end;
writeln('Source array:');
for j := 1 to m do
  begin
    for i := 1 to m do write(a[i, j]);
    writeln
  end;
For j := 1 to m do
  begin
    S[j]:=0;
    if a[j, j] < 0 then for i := 1 to m do s[j] := s[j] + a[i, j]
  end;
for i := 1 to m do if a[i, i] < 0 then writeln('s[', i:2, '] = ', S[i]);
readln;
End.

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .