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
международные организации снг снг
граничит по суше россия, иран, армения, грузия, турция
беларусь, россия, румыния, молдавия, венгрия, словакия, польша
выход к морям и океанам каспийское море
азовское, чёрное моря
