| idlazarev_alex@vk |
31-10-2016 22:48 2683531 |
Сравнение элементов в двумерном массиве
Приветствую, вот что-то типа: Таблица, 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 элемент, по идее нужен цикл, только не знаю где..
Тема больше относится к паскалю, чем к дельфину. Спасибо. |
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], ' ');
|
Цитата:
Цитата idlazarev_alex@vk
по идее нужен цикл, только не знаю где.. »
|
Перед последним begin по-видимому надо прописать шапки циклов. Хотя 31.10.16 было давно и это не актуально. |
Время: 01:05.
© OSzone.net 2001-
