Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Произвести умножение матриц на основе алгоритма Винограда произвести умножение матриц 5х2 и 2х6 на основе алгоритма умножения матриц по Винограду https://www.cyberforum.ru/ turbo-pascal/ thread246830.html треугольник с вершинами A(x1,0), B(0,y1), C(0,0) вращается вокруг пря Turbo Pascal
Составить словесное (математическое) описание следующей задаче: треугольник с вершинами A(x1,0), B(0,y1), C(0,0) вращается вокруг прямой АС. Найти полную поверхность полученной фигуры. При неправильном вводе значений, вывести на экран сообщение об ошибке и предложением повторно ввести правильные данные. Результат отобразить на экране.
Turbo Pascal Оперативное изменение цвета фона и цвета символов строки. я уже задала строку,вывела на экран в виде бесконечно бегущей строки. осталось сделать оперативное изменение цвета фона и цвета символов строки. https://www.cyberforum.ru/ turbo-pascal/ thread246794.html Turbo Pascal Выяснить, существует ли треугольник с заданными длинами сторон https://www.cyberforum.ru/ turbo-pascal/ thread246779.html
Если несложно, помогите пожалуйста с написанием программы в Pacscal... Даны произвольные числа a,b,c. Выяснить существует ли треугольник с такими длинами сторон. Если треугольник существует, то ответить является ли он равносторонним, равнобедренным или каким либо иным. Заранее, огромное спасибо...
Интервалы изоляции корней Turbo Pascal
Графическим методом найти интервалы изоляции корней уравнения f(x)=0 и составить программу вычисления одного из корней с точностью 0.001 методом последовательных приближений(итераций) lg(2+x)+2x-3 Знаете как решить?Помогите пожалуйста!
Turbo Pascal Массив Дан одномерный массив P(10).Вычислить B=x+z/y+2 где x кол-во элементов P y сумма элементов P с четными номерами z номер первого нулевого элемента массива P Вывести на печать x,y,z,B Программа в Паскале и блок-схема Помогите решить пожалуйста! https://www.cyberforum.ru/ turbo-pascal/ thread246748.html
Turbo Pascal Нулевое приближение системы https://www.cyberforum.ru/ turbo-pascal/ thread246747.html
Графическим методом определить нулевое приближение системы(x0,y0) решения системы нелинейных уравнений.Какое будет приближенное решение системы с точностью e=10^(-3) методом итераций? Составить программу в Паскале Система 3x+2lg(x)-0.5(y)^2=0 4-0.5(x)^2-2x-y=0
Turbo Pascal Вычисление интеграла с заданной точностью
Составить программу вычисления интеграла с заданной точностью e=0.001 методом трапеций. Как будет выглядить программа в Паскале и как будет выглядить блок-схема? S=∫(0,2;1) (x+1)cos(x)^2
Turbo Pascal Вычисления минимума функции с точностью https://www.cyberforum.ru/ turbo-pascal/ thread246745.html
Составить программу вычисления минимума функции на интевале с точностью 0.001 методом квадратичной аппроксиманции 14/(x^4-8x^2+2) a=-0.2 b=0.3 Составить программу на Паскале и блок-схему Помогите пожалуйста,буду благодарна!
Turbo Pascal Найти НОД последовательности чисел (Рекурсия). https://www.cyberforum.ru/ turbo-pascal/ thread246735.html
Найти НОД последовательности чисел а1,а2...аn.Используя рекурсивную функцию.Если можно то с небольшими коментариями.Заранее огромное спасибо.
Turbo Pascal Сложные типы данных.Множества
Из множества целых чисел вводимых с клавиатуры в линейную таблицу из 10-ти элементов, выделить множество целых чисел кратных минимальному числу этой таблицы. Помогите написать программу...
Turbo Pascal Начертить узор https://www.cyberforum.ru/ turbo-pascal/ thread246727.html
Здравствуйте,уважаемые программисты!Помогите решить задачку на графику. Я не пойму в условии 'Стороны первого квадрата параллельны осям координат экрана и равны 60. Вершины каждого последующего квадрата - это точки на сторонах предыдущего квадрата, делящие эти стороны в отношении µ = 0,08 ' Подскажите что это значит.
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
4190 / 1291 / 237
Регистрация: 27.07.2009
Сообщений: 3,962
22.02.2011, 17:08 0

Найти среднее арифметическое максимального и минимального по модулю элементов массива - Turbo Pascal - Ответ 1391492

22.02.2011, 17:08. Показов 2075. Ответов 4
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
const
 n=10;
var
 arr :array[1..n] of integer;
 i,min,max :integer;
begin
 randomize;
 arr[1]:=random(15)-5;
 max:=abs(arr[1]);
 min:=abs(arr[1]);
 write(arr[1]:4);
 for i:=2 to n do
  begin
   arr[i]:=random(15)-5;
   write(arr[i]:4);
   if abs(arr[i])>max then
    max:=abs(arr[i]);
   if abs(arr[i])<min then
    min:=abs(arr[i]);
  end;
writeln;
writeln('Mакс ',max,' Мин ',min);
writeln('Результат ',(max+min)/2:0:2);
end.


Вернуться к обсуждению:
Найти среднее арифметическое максимального и минимального по модулю элементов массива Turbo Pascal
2
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.02.2011, 17:08
Готовые ответы и решения:

Найти среднее арифметическое максимального и минимального по модулю элементов массива.
Найти среднее арифметическое максимального и минимального по модулю элементов массива.

Найти среднее арифметическое максимального и минимального по модулю элементов массива.
помогите написать программу в паскале.Условие: Найти среднее арифметическое максимального и...

Найти среднее арифметическое максимального и минимального элементов массива
Дан массив размера N. Сформировать новый массив, в который поместить элементы старого, начиная от k...

Вычислить среднее арифметическое максимального и минимального элементов массива
Преподователь сказал что в программе всё наоборот, хотя работает правильно. Помогите переделать. ...

4
22.02.2011, 17:08
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.02.2011, 17:08
Помогаю со студенческими работами здесь

Вычислить среднее арифметическое минимального и максимального элементов массива
Не могу решить задачу: Вычислить среднее арифметическое минимального и максимального элементов...

Найти среднее арифметическое минимального и максимального элементов из 10 введенных
1. Найти среднее арифметическое минимального и максимального элементов из 10 введенных. Нужно...

Найти среднее арифметическое номеров максимального и минимального элементов в массивах В(18) и Р(14)
Используя подпрограммы-процедуры и подпрограммы функции ,составить блок-схему и программу для...

Определить среднее арифметическое положительных чисел вне минимального и максимального значений массива
Определить среднее арифметическое положительных чисел вне минимального и максимального значений...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru