Delphi - Сравнение элементов в двумерном массиве

[idlazarev_alex@vk]

Приветствую, вот что-то типа: Таблица, 2x10. Вывести каждый элемент первой строки, который больше находящегося в одном столбце с ним элемента второй строки.





Код:

Код: Выделить всё

var
x: Array[1..2, 1..10] of Integer;
i,k,z:integer;
begin
// Генерация двумерного массива
writeln('Исходный массив:'); 
for i:=1 to 2 do
begin
writeln;
for k:=1 to 10 do
begin
x[i,k]:=random(10);
write(x[i,k], ' ':5);
end;
end;
writeln();
writeln();
Writeln('Полученные элементы: ');
begin
if x[1,k]>x[2,k] then
write(x[1,k], ' '); 
end;
end.

В коде выводит только 1 элемент, по идее нужен цикл, только не знаю где..



Тема больше относится к паскалю, чем к дельфину. Спасибо.

[lxa85]

idlazarev_alex@vk, список вы генерируете в цикле, правильном, вложенном.



Код:

Код: Выделить всё

for i:=1 to 2 do
  for k:=1 to 10 do
    x[i,k]:=random(10);

А проверяете одно единственное условие, без циклов.



Код:

Код: Выделить всё

if x[1,k]>x[2,k] then
write(x[1,k], ' ');

[pavsem7]

Цитата idlazarev_alex@vk:



по идее нужен цикл, только не знаю где..

Delphi - Сравнение элементов в двумерном массиве

Перед последним begin по-видимому надо прописать шапки циклов. Хотя 31.10.16 было давно и это не актуально.