Составить алгоритм и программу для решения задачи

@JoInDeR · Регистрация: 18.10.2012

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

Дано квадратную матрицу А размера nхn целых чисел. Получить b1, ... , bn. , Где bi-это значение первого положительного элемента i-той строки матрицы (если таких элементов нет, то принять bi = -1.

@JoInDeR · 01.11.2012, 19:34 **[ТС]**

Поможет кто-то?

@ermolay · 01.11.2012, 19:53

Pascal

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  b: array[1..nmax] of integer;
  n,i,j,k: integer;
begin
  randomize;
  write('Введите размер матрицы n: ');
  readln(n);
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  for i:=1 to n do
  begin
    k:=0;
    for j:=1 to n do
    begin
      if a[i,j]<0 then inc(k) else
        if a[i,j]>0 then
        begin
          b[i]:=a[i,j];
          break;
        end;
      if k=n then b[i]:=-1;
    end;
  end;
  writeln('Полученный одномерный массив:');
  for i:=1 to n do write(b[i],' ');
  readln;
end.

@JoInDeR 0 / 0 / 0 Регистрация: 18.10.2012 Сообщений: 8
		1
	Составить алгоритм и программу для решения задачи 30.10.2012, 19:29. Показов 3289. Ответов 2 Метки нет (Все метки) Дано квадратную матрицу А размера nхn целых чисел. Получить b1, ... , bn. , Где bi-это значение первого положительного элемента i-той строки матрицы (если таких элементов нет, то принять bi = -1. 0

@JoInDeR 0 / 0 / 0 Регистрация: 18.10.2012 Сообщений: 8
	01.11.2012, 19:34 [ТС]	2
	Поможет кто-то? 0

	01.11.2012, 19:53

Составить алгоритм и программу для решения задачи

Решение