Определите цель эксперимента по изучению свойств воды. а). Определите цель эксперимента б. Предсказать, какие изменения произойдут в результате эксперимента
if (p< 3) then write('в массиве меньше трех положительных элементов') else writeln('третий элемент массива равен ', t);
end.
отрицательного значения в массиве не будет, напиши формулу к массиву k[i]: =твоя формула. формула должна быть такой, чтобы попадались и отрицательные элементы, а так, программа рабочая
Таджикиста́н, официально Респу́блика Таджикиста́н — государство в Центральной Азии, бывшая Таджикская Советская Социалистическая Республика в составе СССР.
Таджикистан расположен в предгорьях Памира и не имеет выхода к морю. Это наименьшее по площади центральноазиатское государство. Граничит с Узбекистаном и Киргизией на севере и западе, с Китаем на востоке, с Афганистаном — на юге. Столица — город Душанбе.
Таджикистан — единственное персоязычное государство в бывшей советской Центральной Азии. Большинство населения республики (2000 г., перепись) составляют таджики (79,9 %), говорящие на таджикском языке, кроме того, около 17 % населения составляют узбеки, киргизы (1,3 %) и менее 1 % — русские. Большинство населения Таджикистана исповедует ислам суннитского толка.
Таджикистан богат природными ресурсами, но так как 93 % территории республики занимают горы, их добыча затруднена слабо развитой инфраструктурой. Таджикистан расположен вдали от основных евразийских транспортных потоков. По объёму ВВП на душу населения республика занимает 43-е место в Азии (ниже — только Бангладеш, Непал и Афганистан).
Бедственное положение является следствием многих факторов: невыгодным ЭГП (отстранённость от мировой инфраструктуры, высокогорное положение), тяжёлой социальной обстановкой (в стране после распада СССР грянула гражданская война), слабой развитостью таджикской экономики как таковой и слабой властью (в современных условиях Таджикистан обладает небольшим опытом государственности).
const n=30;
var k: array[1..n] of integer; i,t,p: integer;
begin
randomize;
for i: =1 to n do begin
k[i]: =random(100);
if (k[i]> 0) then p: =p+1;
if (i=3) and (k[3]> 0) then t: =k[3];
end;
if (p< 3) then write('в массиве меньше трех положительных элементов') else writeln('третий элемент массива равен ', t);
end.
отрицательного значения в массиве не будет, напиши формулу к массиву k[i]: =твоя формула. формула должна быть такой, чтобы попадались и отрицательные элементы, а так, программа рабочая