Сколько всего страниц включая нумерованные в третьем издании первой книги мальденштама

195

464

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

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

ДайОтвет2281

Информатика

4,5(8 оценок)

Количество страниц 2574

KristinaSagat55555

Информатика

4,5(63 оценок)

1) const n= ? ; //сюда поставить любое нужное n var a: array[1..n] of real; i,x,k: integer; s: real; begin for i: =1 to n do begin readln(x); a[i]: =x; end; s: =0; k: =0; for i: =1 to n do begin s: =s+a[i]; k: =k+1; end; s: =s/k; for i: =1 to n do if a[i]< s then write(a[i],', '); s: =s/k; for i: =1 to n do if a[i]< s then write(a[i],', '); readln; end. 2) const n=? ; var a: array[1..n] of integer; i,max,min: integer; begin for i: =1 to n do begin readln(x); a[i]: =x; end; min: =a[1]; max: =a[1]; for i: =1 to n do if (i mod 2)=0 then if a[i]> max then max: =a[i]; for i: =1 to n do if (i mod 2)< > 0 then if a[i]< min then min: =a[i]; writeln('max=',max); writeln('min=',min); readln; end.