Сумма элементов столбца матрицы

@SPACEFILER · Регистрация: 10.06.2009

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

Задана матрица (3*3). Найти сумму любого столбца (номер ввести с клавиатуры). Вычисление суммы оформить через процедуру. Все остальное – в программе.

@Snoopy · 22.12.2009, 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
uses crt;
const n=3;
type
    MyArr=array[1..n,1..n] of integer;
 
 procedure Stl (a:MyArr; k:integer);
  var sum,i,j:integer;
  begin
   sum:=0;
    for j:=1 to n do
     for i:=1 to n do
      if j=k then
       sum:=sum+a[i,j];
       Writeln('Сумма ',sum);
  end;
 
 var a:Myarr;
     i,j,k:integer;
 begin
 ClrScr;
 Randomize;
  Writeln('Матрица...');
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=random(20)-10;
      Write(a[i,j]:5);
     end;
    Writeln;
   end;
  Writeln('Введите k');
  Readln(k);
   if (k<=n) and (k>0) then
    begin
     Stl(a,k);
    end
   else
    Writeln('Ошибка!');
 Readln;
 end.

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

@SPACEFILER 0 / 0 / 0 Регистрация: 10.06.2009 Сообщений: 11

	Сумма элементов столбца матрицы 22.12.2009, 10:21. Показов 1206. Ответов 1 Метки нет (Все метки) Задана матрица (3*3). Найти сумму любого столбца (номер ввести с клавиатуры). Вычисление суммы оформить через процедуру. Все остальное – в программе. 0

Сумма элементов столбца матрицы

Решение