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

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