Решить чайнику) дан массив z[16] любых численных элементов. определить 1)произведение p и сумму s элементов массива, занимающих нечетные места 2)сформировать новый массив k[16]: k[i]=z[i]√(третьей степени)(is) 3)найти максимальный элемент массива и заменить его "0" (массив k[i])

224

345

Посмотреть ответы 2

Ответы на вопрос:

DashaZakh

Информатика

4,7(97 оценок)

Маловато за такую . 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.

1298school

Информатика

4,6(42 оценок)

Program qqq; var n, s, x1, z1, i, del: integer; begin writeln ('vvedi 5-znachnoe chislo < 32768'); {ограничение типа integer} readln (n); del: =10000; for i: =1 to 5 do begin z1: = n mod del; x1: = n div del; s: =s+x1; n: =z1; del: =del div 10; end; writeln ('summa cifr=', s); readln; end.