Вычислить суммы элементов каждой строки матрицы X(6,6), записать их в массив Y

@~~Sendvich~~ · 02.06.2014, 23:07. **Показов** 1694. **Ответов** 7

Вычислить суммы элементов каждой строки матрицы X(6,6), записать их в массив Y, определить наименьшее значение этих сумм и номер соответствующей строки.

@Svager · 02.06.2014, 23:36

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    b:array[1..nmax] of integer;
    i,j,n,k,s,min,idxi:integer;
begin
 clrscr;
  repeat
   write('n=');
    readln(n);
  until n in [1..nmax];
  writeln('Èñõîäíàÿ ìàòðèöà :');
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=-10+random(20);
      write(a[i,j]:4);
     end;
    writeln;
   end;
   k:=1;
  for i:=1 to n do
   begin
    s:=0;
    for j:=1 to n do
      s:=s+a[i,j];
     b[k]:=s;
     inc(k);
   end;
  writeln;
  min:=b[1];idxi:=1;
  for i:=1 to k-1 do
   begin
    write(b[i]:4);
    if b[i]<min then
     begin
      min:=b[i];
      idxi:=i;
     end;
   end;
 writeln;
 writeln('Ìèíèìàëüíàÿ ñóììà â ñòðîêå ',idxi,' åå çíà÷åèå = ',min);
 readkey;
end.

@~~Sendvich~~ · 02.06.2014, 23:54 **[ТС]**

а как будет выглядеть блок-схема?

@Svager · 03.06.2014, 00:22

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

а как будет выглядеть блок-схема?

вот так и будет

@~~Sendvich~~ · 03.06.2014, 00:33 **[ТС]**

нет, именно :
начало - ввод .. .. - конец
сама схема этой программы

@Svager · 03.06.2014, 00:44

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

нет, именно :
начало - ввод .. .. - конец
сама схема этой программы

аххаха да Вы что, Вы думаете я не знаю что такое Блок-Схема..я сказал "вот так" что бы Вы сами сделали себе блок-схему..а не я

@~~Sendvich~~ · 03.06.2014, 23:41 **[ТС]**

Спасибо Добрый человек!!!! На самом деле очень выручил!!!!!! А блок - схему сам как- нибудь )

Добавлено через 22 часа 54 минуты

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

;idxi:=1;

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

write(a[i,j]:4);

17 пункт не входит ведь в цикл? если нет то почему?
39 пункт что это за переменная idxi?

@Svager · 04.06.2014, 00:35

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

;idxi:=1;

переменная для хранение индекса минимального элемента.

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

17 пункт не входит ведь в цикл? если нет то почему?

все там входит,внимательно смотрите.

Вычислить суммы элементов каждой строки матрицы X(6,6), записать их в массив Y

Решение

Решение

@~~Sendvich~~ Заблокирован
		1
	Вычислить суммы элементов каждой строки матрицы X(6,6), записать их в массив Y 02.06.2014, 23:07. Показов 1694. Ответов 7 Метки нет (Все метки) Вычислить суммы элементов каждой строки матрицы X(6,6), записать их в массив Y, определить наименьшее значение этих сумм и номер соответствующей строки. 0

@~~Sendvich~~ Заблокирован
	02.06.2014, 23:54 [ТС]	3
	а как будет выглядеть блок-схема? 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	03.06.2014, 00:22	4
	Сообщение было отмечено Sendvich как решение Решение Сообщение от Sendvich а как будет выглядеть блок-схема? вот так и будет 1

@~~Sendvich~~ Заблокирован
	03.06.2014, 00:33 [ТС]	5
	нет, именно : начало - ввод .. .. - конец сама схема этой программы 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	03.06.2014, 00:44	6
	Сообщение от Sendvich нет, именно : начало - ввод .. .. - конец сама схема этой программы аххаха да Вы что, Вы думаете я не знаю что такое Блок-Схема..я сказал "вот так" что бы Вы сами сделали себе блок-схему..а не я 1

@~~Sendvich~~ Заблокирован
	03.06.2014, 23:41 [ТС]	7
	Спасибо Добрый человек!!!! На самом деле очень выручил!!!!!! А блок - схему сам как- нибудь ) Добавлено через 22 часа 54 минуты Сообщение от Svager ;idxi:=1; Сообщение от Svager write(a[i,j]:4); 17 пункт не входит ведь в цикл? если нет то почему? 39 пункт что это за переменная idxi? 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	04.06.2014, 00:35	8
	Сообщение от Sendvich ;idxi:=1; переменная для хранение индекса минимального элемента. Сообщение от Sendvich 17 пункт не входит ведь в цикл? если нет то почему? все там входит,внимательно смотрите. 1

Опции темы