Найти номер первой из строк прямоугольной матрицы, не содержащих ни одного отрицательного элемента - Turbo Pascal

  1. 1)Найти номер первой из строк прямоугольной матрицы, не содержащих ни одного отрицательного элемента.(с использованием Procedure или Function) знаю, что легко, но не работает программа через Procedure  


textual

Код к задаче: «Найти номер первой из строк прямоугольной матрицы, не содержащих ни одного отрицательного элемента - Turbo Pascal»

Const
 ColCount = 3;
 
Type
 TRowArray = array[1..ColCount] of Integer;
 
function TestRow(Row: TRowArray): Boolean;
Var i: Integer;
begin
 TestRow := True;
 for i := 1 to ColCount do if Row[i] < 0 then Exit;
 TestRow := False;
end;
 
Var
 Arr: array[1..ColCount] of TRowArray;
 i,j: Integer;
begin
 Randomize;
 for i := 1 to ColCount
 do begin
    for j := 1 to ColCount
    do begin
       Arr[i,j] := -1+Random(11);
       Write(Arr[i,j]:3);
       end;
    WriteLn;
    end;
 for i := 1 to ColCount
 do if TestRow(Arr[i])
    then begin
         WriteLn(i);
         Break;
         end;
 ReadLn;
end.

СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 3.917 из 5



Похожие ответы
  1. Задание собственно такое: Составить программу формирования из вектора A={ai}, i=1/3n вектора B={bi}, i=1/n, очередная компонента которого равна среднему арифметическому очередной тройки компонент вектора. вот сама программа:

  1. Заданы три числа, надо найти минимальное число. Составить программу для вычисления периметра 10 прямоугольников.

  1. Два нечетных простых числа, разность между которыми равна 2, называются близнецами. На интервале от 1 до 1000 найти всех близнецов и подсчитать количество пар. Необходимо сделать ,используя только циклы ,а без функций и процедур я хз как(

  1. Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива

  1. 1.Составить программу вычисления суммы квадратов чётных чисел из промежутка [a,b].

  1. Произвольно заданы три одномерных массива. Сформировать новый массив, состоящий из десяти элементов с наибольшими значениями исходных массивов. Помогите пожалуйста! Нужно написать программу с while и repeat!!!(отдельные)

  1. Задание: Даны три числа a, b, c. Составить программу нахождения значения минимального отклонения каждого из них от их среднего арифметического. Данные выбрать произвольно.

  1. нужна написать программу чтоб вышел такой рисунок *** ** *

  1. помогите пожалуйста написать программу,которая найдет все натуральные числа,меньше чем MAXINT, такие ,что они равны сумме факториалов цифр,из которых состоят. пример: 145=1!+4!+5!

  1. Написать программу на зыке Pascal для обработки матриц. Размерности матрицы и ее элементы должны вводиться с клавиатуры. Полученная матрица и другие элементы должны выводиться на экран. Определить произведение элементов в тех столбцах, которые не содержат элементов кратных 5.