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