Var x, y, a, nod:integer;
nok:real;
begin
readln(x,y);
a:=x*y;
repeat if x > y then x:=x mod y
else y:=y mod x
until x*y=0;
nod:=x+y;
writeln(nod);
nok:=a/nod;
writeln(nok);
end.
<span>1)рабочий лист, с которым в данный момент работает пользователь
</span>
- параметры, которыми определяется «внешний вид» ячейки и её содержимого
<span>- форма данных ячейки
</span>
- распространение выполняется протягиванием по ячейкам ЭТ при нажатой левой клавиши мыши
<span>- при этом содержимое выделенной ячейки не помещается в буфер обмена информацией, в отличие от операции копирования
</span>
<span>- указатель на ячейку
</span>
<span>- из вычисляемых значений номеров пересечения строки и столбца</span>
Вот пожалуйста что не понятно говорите
Program primer;
Uses crt;
var i,n,ind: integer;
a:array[1..100] of integer;
begin clrscr;
randomize;
write('Pazmer massiva = ');
readln(n);
for i:=1 to n do
a[i]:= random(100)-70;
for i:=1 to n do
write(a[i]:5);
writeln;
writeln;
for i:=1 to n do
if a[i]<=0 then ind:=ind+1
else
begin
ind:=i;
writeln(ind); break;
end;
end.