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

[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]

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