program rrr; uses crt; const n=9; type massiv=array[1..n]of real; var a: massiv; max,sr: integer; procedure vvod(var x: massiv); var i: integer; beginwriteln('wwedite massiv'); for i: =1 to n doreadln(x[i]); end; procedure vivod(x: massiv); var i: integer; beginfor i: =1 to n dowrite(x[i]: 6: 2,' '); end; procedure sred_ar_i_max(x: massiv,var sr,max: real); var sum: real; i: integer; begins: =0; for i: =1 to n doif x[i]> 0 then s: =s+x[i]; end; sr: =s/n; for i: =1 to n doif (x[i]> 0) and max< x[i] then max: =x[i]; end; vvod(a); clrscr; vivod(a); sred_ar_i_max(a,sr,max); writeln('max=',max: 6: 2,'srednee arifmet=',sr: 6: 2); readln; end.
Ответ дал: Гость
а) наличие электромагнитного излучения, сrt
б) ухудшение качества изображения при изменении угла обзора, lcd
в) компактные размеры lcd
г) достаточно сильное ухудшение качества изображения при изменении рекомендуемой производителем разрешающей способности crt lcd
д) формирование изображения с лучей электронных пушек, crt
е) меньший вред для здоровья человека при работе. lcd
Другие вопросы по: Информатика
Похожие вопросы
Знаешь правильный ответ?
Выберете из списка устройств ввода-вывода информации в компьютер устройства ввода...
Популярные вопросы