Определить номера строк матрицы, не содержащих отрицательных элементов

@xxxwtfxxx · Регистрация: 25.12.2015

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

2.Дана квадратная матрица А размера 6х6. Определить номера строк, не содержащих отрицательных элементов. Для проверки одной строки использовать функцию.

@ZX Spectrum-128 · 31.12.2015, 22:02

Найти произведение элементов строк, которые не содержат ни одного отрицательного элемента

@Karadmi · 04.01.2016, 21:00

Pascal

const
  n = 6;
 
type
  mas = array[1..6, 1..6] of integer;
 
var
  i, j, k: integer;
  a: mas;
 
begin
  k := 0;
  for i := 1 to n do
  begin
    for j := 1 to n do
      read(a[i, j]);
    readln();
  end;
  
  for i := 1 to n do
  begin
    for j := 1 to n do
      if a[i, j] < 0 then k := k + 1;
    if k = 0 then writeln(i);
    k := 0;
  end;
end.

@volvo · 05.01.2016, 13:52

И ни там ни там - никакой функции. Вот с использованием функции:

Pascal

const
  n = 6;
 
type
  vec = array[1..6] of integer;
  mas = array[1..6] of vec;
 
function NoNegatives(v: vec): boolean;
var
  count: integer := 0;
begin
  foreach i: integer in v do if i < 0 then inc(count);
  result := count = 0;
end;
 
var
  i, j: integer;
  a: mas;
 
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
      read(a[i, j]);
    readln();
  end;
  
  for i := 1 to n do
    if NoNegatives(a[i]) then writeln(i);
end.

@Karadmi · 05.01.2016, 13:58

А да про функцию не заметил

Определить номера строк матрицы, не содержащих отрицательных элементов

Решение

Решение

@xxxwtfxxx 0 / 0 / 0 Регистрация: 25.12.2015 Сообщений: 4
		1
	Определить номера строк матрицы, не содержащих отрицательных элементов 28.12.2015, 21:14. Показов 2088. Ответов 4 Метки нет (Все метки) 2.Дана квадратная матрица А размера 6х6. Определить номера строк, не содержащих отрицательных элементов. Для проверки одной строки использовать функцию. 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	31.12.2015, 22:02	2
	Найти произведение элементов строк, которые не содержат ни одного отрицательного элемента 1

@Karadmi 3 / 3 / 7 Регистрация: 04.01.2016 Сообщений: 20
	05.01.2016, 13:58	5
	А да про функцию не заметил 0