Дан массив a(n). найти среднее арифметическое, количество и произведение отрицательных элементов, стоящих на нечетных местах. не использовать mod , использовать оператор цикла repeat.

122

244

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

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

qawsed123

Информатика

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

Const n=5; var k,i: integer; p,s: real; a: array[1..n] of real; begin for i: =1 to n do read(a[i]); k: =0; p: =1; s: =0; i: =1; repeat if a[i]< 0 then begin p: =p*a[i]; s: =s+a[i]; k: =k+1 end; i: =i+2 until i> n; if k> 0 then write(s/k,' ',k,' ',p) else write(0,' ',0,' ',0) end.

tanysha4957

Информатика

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

Program palidron; var a, b, c, x, d: integer; begin writeln('число: '); readln(a); b: = a mod 10; c: = (( a div 10) mod 10); x: = (( a div 10) div 10); d: = 100*b+10*c+x; writeln('палиндром: ',b,c,x); writeln('произведение числа и палиндрома: ',d*a); end.