ответ на КООРДИНАТЫ В БЫТУ. Это когда грузчикам или другим гостям даем свой адрес - куда тащить -примерно - 3-я парадная, 5-й этаж. Здесь две САМОДЕЛЬНЫЕ координаты - длина и высота. Измеряются в лестничных расстояниях и этажах. Или "посылаем кого-нибудь и куда-нибудь" - "До аптеки - 2 квартала вперед, один направо и еще один налево. Координаты бывают разные, даже в географии - если на глобусе, то ВЫСОТА и ШИРИНА от НУЛЕВОГО (Гринвичского) меридиана.Они измеряются в ГРАДУСАХ, УГЛОВЫХ МИНУТАХ И УГЛОВЫХ СЕКУНДАХ. ЕСЛИ УЖЕ НА плоской КАРТЕ, то это уже ПОЛЯРНЫЕ координаты по КОМПАСУ от направления С(евер) и РАССТОЯНИЮ. НАПРИМЕР, - Где закопан КЛАД - к ЮГО-ЮГО-ВОСТОКУ (угол) пройти 350 шагов (расстояние). По компасу измеряются в РУМБАХ - Северо-Восток (СВ) = -45 град от С. Есть половинки румба - Северо-Северо-Восток - это 22,5 град к востоку.
1) Program n1; var n,i:integer; t:array[1..100] of real; a,b:real; begin readln(n); readln(a); readln(b); for i:=1 to n do begin t[i]:=(b-a)/n; write(t[i],' '); end; end. 2) Program n1; var a:array[1..100] of integer; n,i:integer; k:real; begin read(n); k:=0; for i:=1 to n do read(a[i]); for i:=1 to n do if a[i] mod 2 <> 0 then k:=k+1; writeln; writeln('кол-во нечет. чисел равно ',k,''); end. 6) Program n1; var a:array[1..100] of real; i,n:integer; s,sr:real; begin read(n); for i:=1 to n do read(a[i]); s:=0; sr:=0; for i:=1 to n do s:=s+a[i]; sr:=s/n; writeln('сред. арифметическое равно ',sr,''); end. 7) Program n1; var a:array[1..100] of real; i,n:integer; min,max:real; begin read(n); for i:=1 to n do read(a[i]); min:=a[1]; for i:=2 to n do if a[i]<min then min:=a[i]; max:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; writeln('максимальный элемент равен ',max,''); writeln('минимальный элемент равен ',min,''); end. 8) Program n1; var a:array[1..100] of real; i,n:integer; min,max,nom1,nom2:real; begin read(n); for i:=1 to n do read(a[i]); min:=a[1]; nom1:=1; for i:=2 to n do if a[i]<min then begin min:=a[i]; nom1:=i; end; max:=a[1]; nom2:=1; for i:=2 to n do if a[i]>max then begin max:=a[i]; nom2:=i; end; writeln('максимальный элемент равен ',max,', его номер ',nom2,''); writeln('минимальный элемент равен ',min,', его номер ',nom1,''); end. 9) Program n1; var a:array[1..100] of real; i,n:integer; min,max,s,sr:real; begin read(n); randomize; for i:=1 to n do begin a[i]:=random(100)+1; write(a[i],' '); end; writeln; s:=0; sr:=0; for i:=1 to n do s:=s+a[i]; sr:=s/n; writeln('ср. арифм. = ',sr,''); min:=a[1]; for i:=2 to n do if a[i]<min then min:=a[i]; max:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; writeln('максимальный элемент равен ',max,''); writeln('минимальный элемент равен ',min,''); end.
Const n=15; Var a:array[1..n] of integer; i,indx,k,tr,indxx:integer; Begin Randomize; For i:=1 to n do begin A[i]:=Random(40)-20; Write(a[i],' '); end; Writeln; write('0 имеет номер: '); For i:=1 to n do Begin If A[i]=0 thenwrite(i); end; Writeln; indx:=0; For i:=1 to n do Begin If a[i] mod 2=0 then begin indx += 1; a[indx]:=a[i]; end; end; Write('Индекс четных элементов: '); For i:=1 to indx do write(a[i],' '); For i:=1 to n do Begin If A[i]<0 then Begin inc(k); end; end; Writeln; Writeln('Кoличество отрицательных элементов: ',k); For i:=1 to n do Begin If A[i] mod 3=0 then tr:=a[i]; end; Writeln('Кратное трем ',tr); indxx:=0; writeln('Индексы кратны 3: '); For i:=1 to n do Begin If a[i] mod 3=0 then begin indxx += 1; a[indxx]:=a[i]; write(' ',a[i]); end; end; end.
Или "посылаем кого-нибудь и куда-нибудь" - "До аптеки - 2 квартала вперед, один направо и еще один налево.
Координаты бывают разные, даже в географии - если на глобусе, то ВЫСОТА и ШИРИНА от НУЛЕВОГО (Гринвичского) меридиана.Они измеряются в ГРАДУСАХ, УГЛОВЫХ МИНУТАХ И УГЛОВЫХ СЕКУНДАХ.
ЕСЛИ УЖЕ НА плоской КАРТЕ, то это уже ПОЛЯРНЫЕ координаты по КОМПАСУ от направления С(евер) и РАССТОЯНИЮ. НАПРИМЕР, - Где закопан КЛАД - к ЮГО-ЮГО-ВОСТОКУ (угол) пройти 350 шагов (расстояние). По компасу измеряются в РУМБАХ - Северо-Восток (СВ) = -45 град от С. Есть половинки румба - Северо-Северо-Восток - это 22,5 град к востоку.