Предмет: Информатика, автор: Artem1402bl

помогите решить чайнику)
Дан массив Z[16] любых численных элементов.
Определить 1)Произведение P и сумму S элементов массива, занимающих нечетные места
2)Сформировать новый массив K[16]:
K[i]=Z[i]*√(третьей степени)(i*S)
3)Найти максимальный элемент массива и заменить его "0" (массив K[i])

Ответы

Автор ответа: BlackW1nd
0
Маловато баллов за такую задачку.

Var z:array[1..16] of integer; k:array[1..16] of real; i,p,s:integer; max:real;
Begin
 randomize;
 for i:=1 to 16 do z[i]:=random(101);
 write('Z=');
 for i:=1 to 16 do write(z[i],' ');
 writeln;
 writeln;
 p:=0;
 s:=0;
 for i:=1 to 16 do
   if (i mod 2)<>0 then
     begin
      s:=s+z[i];
      p:=p*z[i];
     end;
 writeln('P=',p);
 writeln('S=',s);
 writeln;
 for i:=1 to 16 do k[i]:=z[i]*exp(ln(i*z[i])/3);
 
write('K=');
 for i:=1 to 16 do write(k[i]:0:0,'  ');
 max:=k[1];
 for i:=1 to 16 do
   if k[i]>max then max:=k[i];
 writeln;
 writeln('max=',max:0:0);
 for i:=1 to 16 do
   if k[i]=max then k[i]:=0;
 write('K=');
 for i:=1 to 16 do write(k[i]:0:0,'  ');
End.
Похожие вопросы
Предмет: Русский язык, автор: pocercat
Выберите предложения, в которых использованы краткие причастия.

Он с удовольствием остановился несколько минут на расположении комнат, определил длину и ширину столовой, бильярдной, подумал и о том, куда будет обращен окнами его кабинет. (И.А.Гончаров)
Захар, произведенный в мажордомы, с совершенно седыми бакенбардами, накрывает стол, с приятным звоном расставляет хрусталь и раскладывает серебро. (И.А.Гончаров)
Он вдруг перенесся на несколько лет вперед в деревню, когда уж имение устроено по его плану и когда он живет там безвыездно. (И.А.Гончаров)
Захар, отслужив в молодости лакейскую службу в барском доме, был произведен в дядьки к Илье Ильичу. (И.А.Гончаров)
С тех пор Захар начал считать себя только предметом роскоши, аристократическою принадлежностью дома, назначенною для поддержания полноты и блеска старинной фамилии. (И.А.Гончаров)