0 / 0 / 0
Регистрация: 12.04.2010
Сообщений: 3
1

Среднее арифметическое Мин+Макс

21.04.2010, 12:51. Показов 839. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Очередной раз прошу вас помощи дорогие пользователи форума
Суть программы:
1.Найти минимальный елемент.
2.Найти максимальный елемент.
3.Найти среднее арифметическое мин и макс
Вот что набросал пока что программа считает только максимальный елемент.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program olo;
var s,x:integer;
f:text;
begin
assign (f,'c:\i.txt');
reset (f);
if x>s then s:=x;
end;
close (f);
assign (f,'c:\o.txt');
rewrite (f);
writeln(f, 'cep. APuFmetu4Hoe=',s);
 close(f);
end.
это так незнаю или правильно ну то что набросал
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program olo2;
var s,x,p,v:integer;
f:text;
begin
assign (f,'c:\i.txt');
reset (f);
if x>s then s:=x;
if p<v then p:=v;//это минимальное ищет
//И тут формула сер. Арифметичного)
end;
close (f);
assign (f,'c:\o.txt');
rewrite (f);
writeln(f, 'cep. APuFmetu4Hoe=',s);
 close(f);
end.
Всем откликнувшимся огромное спасибо)

Добавлено через 21 час 41 минуту
Знающие люди прошу вашей помощи
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.04.2010, 12:51
Ответы с готовыми решениями:

Двумерный массив макс.мин
Дан двумерный массив NxM. Нужно найти максимальный элемент выше главной диагонали и минимальный...

Макс и мин значения в двумерном массиве.
Дан массив 10*15. Надо найти максимальное и минимальное значение каждого столбца и строки....

Найти разность мин и макс значение функции
Найти разность мин и макс значения функции y:=(1-e(в степени -x)*sin(x/2) от Х(начального) до...

Найти среднее арифметическое квадратов и среднее арифметическое модулей двух чисел
Дано 2 числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей.

1
Платежеспособный зверь
8932 / 4360 / 1642
Регистрация: 28.10.2009
Сообщений: 11,581
21.04.2010, 13:00 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Program olo;
var 
x,min,max:integer;
s:real;
f:text;
begin
min:=maxint;
max:=-maxint;
assign (f,'c:\i.txt');
reset (f);
while not eof(f) do begin
readln(x);
if x> max then max:=x;
if x< min then min:=x;
end;
close (f);
s:=(min+max)/2
assign (f,'c:\o.txt');
rewrite (f);
writeln(f,'min=',min,' max=',max);
writeln(f, 'cep. APuFmetu4Hoe=',s:4:1);
 close(f);
end.
0
21.04.2010, 13:00
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.04.2010, 13:00
Помогаю со студенческими работами здесь

Выяснить макс. или мин. число встретится в последовательности
Ребят, в паскале плохо соображаю дали задание помогите решить плиз Ввести N чисел: x1,...

Двумерный массив, макс и мин. элемент поменять местами.
Доброго времени суток. Прошу помощи в решении задачи)) Каждый нечетный элемент двумерного массива...

В одномерном массиве найти мин и макс элементы и заменить их местами
Написать программы: 1) в одномерном массиве найти мин и макс элементы и заменить их местами 2)в...

Дан массив размера 10. Переставить в обратном порядке элементы массива, расположенные между его мин и макс элементами
Приветствую Помогите с задачей пожалуйста Дан массив размера 10. Переставить в обратном порядке...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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