1) Байкал - озеро
2) Петербург - город
3) Индия - страна
4) хлопоты - глагол
5) дебри - они в тундре
6) мозоль - он не красный
7) лазурь - заканчивается на "рь"
Var a:array[1..10] of integer;
k,n,i:integer;
min:INTEGER;
begin
randomize; N:=10; k:=0 {кол-во отрицательных элементов};
writeln ('исходный массив');
for i:=1 to N do
begin
if random(2) =1 then a[i]:=random(100)
else begin k:=k+1; a[i]:=-random(100); min:=a[I] end;
write(a[i]:5);
end;
writeln;
{поиск минимального положительного}
if (k<>0) or (k<>N) then {есть отрицательные или не все отрицательные}
begin
for i:=1 to N do
if (a[i]>0) and (a[i]<min) then min:=a[i];
{замена}
for i:=1 to N do
if (a[i]<0) then a[i]:=min;
end;
writeln('Новый массив')
for i:=1 to N do write(a[i]:5);
end.
Program Zvezda;
Uses GraphABC;
begin SetBrushColor(clYellow); Line(290, 111, 240, 190); Line(240, 190, 171, 190); Line(170, 190, 241, 250); Line(241, 250, 209, 320); Line(209, 320, 290, 289); Line(290, 289, 369, 318); Line(369, 318, 340, 248); Line(340, 248, 410, 190); Line(410, 190, 340, 190); Line(340, 190, 289, 111); Line(289, 113, 289, 289); Line(242, 249, 341, 190); Line(340, 249, 242, 190); Line(171, 191, 290, 220); Line(291, 220, 411, 191); Line(209, 319, 290, 222); Line(290, 222, 369, 321); End.
<span>#include <iostream></span>
<span>using namespace std;</span>
<span>int main()</span>
{
<span> double x,y,R = 0;</span>
<span> cout << "Введите координаты точки и её радиус:\n";</span>
<span> cin >> x >> y >> R;</span>
<span> if (x*x+y*y <= R*R)</span><span> cout << "Точка попадает в круг\n";</span>
<span> else</span><span> cout << "Точка не попадает в круг\n";</span>
<span>}</span>
