надо составить блок-схему

@Delta · Регистрация: 17.11.2009

Author24 — интернет-сервис помощи студентам

Pascal

program w;
var a:array [1..20] of integer;
n,i,nok,nod,tnod,tnod2:integer;
begin
randomize;
repeat
write ('vvedite razryadnost=');
readln (n);
until n in [1..20];
for i:=1 to n do begin
a[i]:=random(41)+10;
write (a[i],' ');
end;
nok:=a[1];
for i:=2  to n do
begin
tnod:=nok;
tnod2:=a[i];
while tnod <>0 do
begin
nod:=tnod;
tnod:=tnod2 mod tnod;
tnod2:=nod;
end;
nok:=nok*a[i] div nod;
end;
write ('nok: ',nok);
readln;
end.

@AIKru · 22.12.2009, 22:14

Так пойдёт?
http://img22.imageshack.us/img... 1part0.png

@AIKru 1 / 1 / 0 Регистрация: 06.12.2009 Сообщений: 9
	22.12.2009, 22:14	2
	Так пойдёт? http://img22.imageshack.us/img... 1part0.png 1