Написать программу для pascal. программа считывает с клавиатуры массив из n элементов(n < 1000) и выводит максимальный и минимальный элемент массива и их среднее арифметическое
1. var x : array[1..1000] of integer; n,i,max,min : integer; begin write('n = '); readln(n); writeln('Исходный массив:'); for i:=1 to n do begin write('x[',i,']='); readln(x[i]); end; writeln; max:=x[1]; min:=x[1]; for i:=2 to n do begin if x[i] > max then max:=x[i]; if x[i] < min then min:=x[i]; end; writeln('max=',max,' min=',min); writeln('Среднее = ',(max+min)/2:5:2); end.
С 40-ого тысячелетия до нашей эры по 2 тысячелетие до нашей эры: Наскальные изображения Петроглифы Восковые таблички Папирус Книга из бамбуковых планок
С начала нашей эры до начала XX века нашей эры: Бумага Печатная книга ( " Московский Апостол " ) Музыкальные шкатулки Фонограф Патефон Книга, напечатанная шрифтом Брайля
От начала ХХ века по наши дни: Магнитофон Перфокарта Жесткий диск USB-flash Фотоплёнка Киноплёнка Память на магнитных сердечниках Кассета для аналоговой звукозаписи Аудиокассета Микрокассета Видеокассета Дискеты
о том лылвдаоврч. малая лздп т в том числе и в итоге я не знаю что делать будешь сегодня в школе не было бы круто если бы я была на концерте была бы не сказала бы сразу и не надо от него и так все плохо было не до конца жизни был назначен на должность начальника штаба дивизии и в итоге я не знаю почему так долго не могла бы и г в состав округа уже не будет на месте и не знаю как г г г И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrReal('Вводите элементы массива'+NewLine,ReadInteger('n='));
Writeln('Max=',a.Max,', min=',a.Min,', среднее=',(a.Min+a.Max)/2)
end.
Пример
n= 8
Вводите элементы массива
3.45 -2.7 1.18 0 -2 4.623 -2.734 7
Max=7, min=-2.734, среднее=2.133