Matematické Fórum

Ahoj, prosím potřeboval bych pomoct s těmito dvěma úkoly:

Sestavte algoritmus pro nalezení největšího společného dělitele n celých čísel.
V algoritmu využijte funkce NSD pro vyhledání největšího společného děliitele dvou čísel x a y.

Mně se podařilo pouze odladit NSD pro dvě čísla a nevím, jak tam zakomponovat to, aby bral n čísel, asi to bude chtít ještě vnořený cyklus, ale já nevím, jak ho udělat.

Ten program na NSD dvou čísel je níže:

procedure NSD;

var i, j : integer;

begin
write (' Zadej cislo: ');
readln (i);
repeat write (' Zadej cislo: ');
readln (j);

while i <> j do

if i >j then i := i - j

else j := j - i

writeln (' Nejvetsi spolecny delitel cisel i a j je: ',i);
end;


A druhý úkol je tento - s tím si vůbec nevím rady:

Napiš program pro výměnu dvou řádků a dvou sloupců v dvourozměrném poli.
Pole bude naplněno náhodnými čísly.

Předem díky za všechny rady a nápady.