Var i, a, b, t, d, n : integer;
x : array of integer;
begin
read(n);
SetLength(x, n + 1);
for i := 1 to n do
read(x[i]);
a := x[1];
for i := 2 to n do begin
b := x[i];
d := a * b;
while (b > 0) do begin
t := a;
a := b;
b := t mod b;
end;
a := d div a;
end;
writeln(a);
<span>end.</span>
Вот решение на С++.
Использован цикл while. (аналог цикла repeat)
Ответ: 3
в каталоге A: находится еще 1 папка с именем shool/user/doc
//Pascal ABC.NET v3.1 сборка 1219
Var
n,k1,k2,i:integer;
r:real;
begin
readln(n);
for i:=1 to n do
begin
readln(r);
if r>0 then k1:=k1+1;
if r<0 then k2:=k2+1;
end;
writeln('Положительные:',k1);
writeln('Отрицательные:',k2);
end.
Пример ввода:
4
-1.1
2
3
0
Пример вывода:
Положительные:2
Отрицательные:1
uses graphabc;
begin
//1
rectangle(200,100,450,250);
line(200,100,450,250);
line(200,100,325,30);
line(450,100,325,30);
end.
2.
uses graphabc;
begin
//1
rectangle(200,100,450,250);
line(200,100,325,30);
line(450,100,325,30);
end.