Назвіть провідні промислові виробництва економіки Китаю.

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]: =твоя формула. формула должна быть такой, чтобы попадались и отрицательные элементы, а так, программа рабочая

Египетские                                                                                                                  Йоруба                                                                                                                        Марокканские                                                                                                            Игбо                                                                                                                             Фульбе                                                                                                                        Хауса                                                                                                                         Амхара