Var n,m,q,i:integer;f:boolean;
begin
read(m,n);
f:=true;
while f=true do begin
f:=false;
if m>n then q:=n else q:=m;
for i:=2 to q do begin
if (m mod i = 0) and (n mod i = 0) then begin m:=m div i;n:=n div i;f:=true;end;
end;
end;
writeln(m,'/',n);
end.
По идее так, не проверял.
Var a,k,n:integer;
begin
readln(n);
for n:=n downto 1 do begin
read(a);
if a<0 then inc(k);
end;
writeln(k);
<span>end.</span>
4 кб нужно !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Первая
var
i,min:integer;
mas: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
mas[i]:=random(1,100);
write(mas[i], ' ');
end;
end.
Вторая
var
i,min:integer;
mas: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
mas[i]:=random(1,100);
write(mas[i], ' ');
end;
writeln('');
min:=mas[1];
for i:=1 to 10 do
begin
if min>mas[i] then
min:=mas[i];
end;writeln('min = ', min);
end.