Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 11, средняя оценка - 4.91
shik
2 / 2 / 1
Регистрация: 13.10.2010
Сообщений: 70
#1

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

22.02.2011, 16:30. Просмотров 1362. Ответов 4
Метки нет (Все метки)

Найти среднее арифметическое максимального и минимального по модулю элементов массива. С помощью массивов и строк.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.02.2011, 16:30
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти среднее арифметическое максимального и минимального по модулю элементов массива (Turbo Pascal):

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

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

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

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

Вычислить среднее арифметическое максимального и минимального элементов массива - Turbo Pascal
Преподователь сказал что в программе всё наоборот, хотя работает правильно. Помогите переделать. Program vektor2; uses crt; ...

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

4
bogdanustimov
20 / 20 / 6
Регистрация: 31.12.2010
Сообщений: 112
22.02.2011, 16:43 #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
Var 
mas:array[1..n] of real;
i,n:integer;
max,min,s:real;
Begin
readln(n);
Writeln(1:);
    Readln(mas[1]);
mas[1]:=abs(mas[1]);
    Max:=mas[1];
    Min:=mas[1];
    For i:=2 to n do
    begin
    Write(‘mas[,i,]:);
    Readln(mas[i]);
        mas[i]:=abs(mas[i]);
        If mas[i]>max then max:=mas[i];
     If mas[i]<min then min:=mas[i];
    end;
s:=(max+min)/2;
    Writeln(s:6:2);
    readln;
End.
1
Dekio
Фрилансер
Эксперт С++
5837 / 1218 / 214
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
22.02.2011, 17:01 #3
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
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
25
26
program Dekio;
const
n=10;
var
arr :array[1..n] of integer;
i,min,max :integer;
begin
randomize;
for i:=1 to n do
begin
arr[i]:=random(15)-5;
write(arr[i]:4);
end;
max:=abs(arr[1]);
min:=abs(arr[1]);
for i:=1 to n do
begin
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.
Цитата Сообщение от bogdanustimov Посмотреть сообщение
Я не проверял но вроде так:
Решение не правильное
2
TAVulator
3950 / 1109 / 72
Регистрация: 27.07.2009
Сообщений: 3,457
22.02.2011, 17:08 #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.
2
bogdanustimov
20 / 20 / 6
Регистрация: 31.12.2010
Сообщений: 112
26.02.2011, 16:21 #5
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Вот мой отредактированый код:

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
25
26
27
Program bogdanustimov;
Uses Crt;
Var 
mas:array[1..50] of real;
i,n:integer;
max,min,s:real;
Begin
clrscr;
write('Koli4estvo:');
read(n);
Write('mas[1]:');
Read(mas[1]);
mas[1]:=abs(mas[1]);
Max:=mas[1];
Min:=mas[1];
For i:=2 to n do
begin
Write('mas[',i,']:');
Read(mas[i]);
mas[i]:=abs(mas[i]);
If mas[i]>max then max:=mas[i];
If mas[i]<min then min:=mas[i];
end;
s:=(max+min)/2;
Write(s:6:2);
readkey;
End.
2
26.02.2011, 16:21
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.02.2011, 16:21
Привет! Вот еще темы с ответами:

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

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

дана матрица А размером (m*n). найти среднее арифметическое элементов, по модулю меньших некоторого числа В. - Turbo Pascal
дана матрица А размером (m*n). найти среднее арифметическое элементов, по модулю меньших некоторого числа В. Заголовок темы изменен...

Найти произведение максимального и минимального элементов массива - Turbo Pascal
Даны массивы a и b.Используя процедуру :Из массива a найти максимальный элемент,из массива b найти минимальный элемент,найти произведение...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru