• B правой части каждого сообщения есть стрелки и . Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок в правой части сообщения.

  • Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Двухмерные Массивы

  • Автор темы Izekil
  • Дата начала
Статус
Закрыто для дальнейших ответов.
I

Izekil

Помогите пожалуйста закрыть атестацию, вот задачка :
В данной действительной квадратной матрице порядка N*N:найти строки, элементы которых упорядочены по возрастанию.
 
S

sinkopa

Помогите пожалуйста закрыть атестацию, вот задачка :
В данной действительной квадратной матрице порядка N*N:найти строки, элементы которых упорядочены по возрастанию.
1. На каком языке задача? Паскаль или Delphi?
2. Вы не указали каким способом матрица должна заполняться элементами.
Общий принцип следующий:
Код:
program CalcChars;

const
N = 10;
var
matrix: array[1..N,1..N] of Real;
I,J,k: Integer;
begin

for I := 1 to N do
begin
for J := 1 to N do
begin
// matrix[I,J] := ... // как нибудь заполняем матрицу данными
end;
end;

for I := 1 to N do
begin
// сравниваем (построчно) J-тый элемент с предыдущим (J-1)
k := 0;
for J := 2 to N do
if (matrix[I,J] >= matrix[I,J-1]) then
Inc(k);

if (k = N) then // Если k = N, значит все элементы в строке упорядоченны по возрастанию.
begin			// т.е. кажды J-тый элемент больше (или равен) предыдущему

// выводим строчку (через запятую)
Write(matrix[I,1]);
for J := 2 to N do
begin
Write(',', matrix[I,J]);
end;
Writeln;
end;
end;

end.
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!