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]: =твоя формула. формула должна быть такой, чтобы попадались и отрицательные элементы, а так, программа рабочая
азербайджан украина
форма правления республика республика
столица баку киев
площадь, км 2 86 600 603 700 43 в мире
население, чел. 8 997 400 45 872 000 28 в мире
рост численности населения, в год 0,75% -0,63%
средняя продолжительность
жизни, лет 66,3 68,1
плотность населения, чел./км2 103,90 75,98
официальные языки азербайджанский украинский
валюта манат гривна
международный телефонный код 994 380
зона в internet .az .ua
часовые пояса utc+4 utc+2
международные организации снг снг
граничит по суше россия, иран, армения, грузия, турция
беларусь, россия, румыния, молдавия, венгрия, словакия, польша
выход к морям и океанам каспийское море
азовское, чёрное моря
Европа наглядный пример растущей урбанизации. проявляются все 3 главные черты - рост городского населения, концентрация производства и населения в больших городах, расползание городов и даже их объединение (наглядный пример Рурский регион Германии и Роттердам-Гаага в Нидерландах - это почти один гигантский город)
2. Виноград, оливки, твердые сорта пшеницы, сахарная свекла - это для южной Европы. Для Средней Европы более характерны пшеница, рожь, овес, овощные культуры. Также развито виноградарство.
3.Франция мировой лидер производства вина
Германия четвертая в мире по производству автомобилей
Германия также четвертая по производству бумаги и картона
Украина третья по производству гречихи
Украина также пятая по производству кукурузы
Норвегия седьмая в мире по добыче природного газа
Франция пятая по производству пшеницы
Германия вторая по производству ржи
Германия седьмая по выплавке стали
Германия восьмая по добыче угля
Швеция пятая по производству целлюлозы
Ирландия седьмая по выплавке цинка
Украина шестая по выплавке чугуна
Польша шестая по производству яблок