Массив: В каждом столбце матрицы найти второй отрицательный элемент, если таких нет, вывести ноль...

@Sasha5289 · Регистрация: 21.01.2019

Сформировать квадратную матрицу. В каждом столбце найти второй отрицательный элемент.есди таких нет, вывести ноль.

Добавлено через 1 минуту
С использованием подпрограмм если можно

@Puporev · 23.01.2019, 10:40

Pascal

uses crt;
type mtr=array[1..10,1..10] of integer;
procedure matrix(var a:mtr;var n:byte);
var i,j:byte;
begin
repeat
write('Введите размер матрицы от 2 до 10 n=');
readln(n);
until n in [2..10];
randomize;
writeln('Матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-10+random(21);
    write(a[i,j]:4);
   end;
  writeln;
 end;
end;
procedure zero(a:mtr;n:byte);
var i,j,k,i2:byte;
begin
writeln('Вторые отрицательные элементы в столбцах');
for j:=1 to n do
 begin
  k:=0;
  i2:=0;
  for i:=1 to n do
   begin
    if a[i,j]<0 then inc(k);
    if (k=2)and(i2=0) then i2:=i;
   end;
  write('столбец ',j:2,': ');
  if i2>0 then writeln(a[i2,j]:3) else writeln(i2:3)
 end;
end;
var a:mtr;
    n:byte;
begin
clrscr;
matrix(a,n);
zero(a,n);
readln
end.

@Sasha5289 0 / 0 / 0 Регистрация: 21.01.2019 Сообщений: 42
		1
	Массив: В каждом столбце матрицы найти второй отрицательный элемент, если таких нет, вывести ноль... 23.01.2019, 09:42. Показов 1658. Ответов 1 Метки задача (Все метки) Сформировать квадратную матрицу. В каждом столбце найти второй отрицательный элемент.есди таких нет, вывести ноль. Добавлено через 1 минуту С использованием подпрограмм если можно 0

Опции темы

Массив: В каждом столбце матрицы найти второй отрицательный элемент, если таких нет, вывести ноль...

Решение