Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 28.09.2012
Сообщений: 6
1

Найти номера всех элементов с максимальным значением

28.09.2012, 18:33. Показов 847. Ответов 8
Метки нет (Все метки)

Не получается написать программу в паскале на тему массивы :


Заполнить массив из 15 элементов случайным образом вещественными значениями от -50 до 50. Найти номера всех элементов с максимальным значением. Верно ли, что максимальный элемент превышает минимальный не более чем на 25?

Спасайте)
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.09.2012, 18:33
Ответы с готовыми решениями:

Дан массив.найти номера всех элементов:с минимальным значением,с максимальным значением.
Привет всем!!!помогите решить задачи на С#. 1.Дан массив.найти номера всех элементов:с минимальным...

Найти номера всех элементов с максимальным значением
сделайте кто может,начинаю ток по с++ 7. Найти номера всех элементов с максимальным значением. ...

Найти номера всех элементов массива с максимальным значением
Дан массив целых чисел.Найти номера всех элементов массива с максимальным значением;

Найти максимальное значение элементов массива, а также номера всех элементов массива с этим значением
Дан массив из n элементов. Необходимо найти максимальное значение элементов массива, а также номера...

8
1402 / 644 / 135
Регистрация: 11.08.2011
Сообщений: 2,299
Записей в блоге: 2
28.09.2012, 18:39 2
Dante182, а что именно не получается?
0
0 / 0 / 0
Регистрация: 28.09.2012
Сообщений: 6
28.09.2012, 18:40  [ТС] 3
Сам не понятен смысл, что нужно писать.
0
1402 / 644 / 135
Регистрация: 11.08.2011
Сообщений: 2,299
Записей в блоге: 2
28.09.2012, 18:41 4
Заполняете массив, находите номера, подтверждаете или опровергаете условие "максимальный элемент превышает минимальный не более чем на 25". Все.
0
0 / 0 / 0
Регистрация: 28.09.2012
Сообщений: 6
28.09.2012, 18:42  [ТС] 5
Это понятно. Смысл что писать не понятен.
0
38 / 38 / 24
Регистрация: 29.09.2011
Сообщений: 99
28.09.2012, 18:51 6
Dante182, вы не понимаете как обращаться к массивам?
0
0 / 0 / 0
Регистрация: 28.09.2012
Сообщений: 6
28.09.2012, 18:53  [ТС] 7
Цитата Сообщение от napasik Посмотреть сообщение
Dante182, вы не понимаете как обращаться к массивам?
я понимаю) Но не в этой программе.
0
38 / 38 / 24
Регистрация: 29.09.2011
Сообщений: 99
28.09.2012, 19:06 8
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
type
   mass=array[1..15] of real;
   
var
   m:mass;
   max,min:real;
   i:byte;
   
begin
 
for i:=1 to 15 do
begin
  write('M[',i,']=');readln(m[i]);
end;
 
for i:=1 to 15 do
begin
  if i=1 then write('M[',m[i],',')
    else
  if i=15 then writeln(m[i],']')
    else
  write(m[i],',');
end;
 
max:=m[1]; min:=m[1];
for i:=2 to 15 do
begin
  if m[i]<min then min:=m[i];
  if m[i]>max then max:=m[i];
end;
 
writeln('min=',min);
writeln('max=',max);
 
write('Номера макс. элементов:');
for i:=1 to 15 do
begin
  if m[i]=max then write(i,' ');
end;
 
writeln;
 
if (max-min<=25) then writeln('Условие выполнено') else writeln('Условие не выполнено');
 
 
 
end.
Вот программа, написал второпях правда, но вроде работает
2
0 / 0 / 0
Регистрация: 28.09.2012
Сообщений: 6
28.09.2012, 19:07  [ТС] 9
Спасибо огромное!
 Комментарий модератора 
Правила форума п 3.6: Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.09.2012, 19:07

Определить среднее арифметическое значений элементов, начиная с номера элемента с максимальным значением
Помогите найти ошибку в масиве Надо определить среднее арифметическое значений элементов, начиная...

Найти среднее арифметическое между максимальным значением матрицы и максимальным значением массива
Заданы матрица и массив. Определить среднее арифметическое между максимальным значением элементов...

Вывести на экран номера всех элементов, не совпадающих с максимальным
Дана последовательность из n действительных чисел. Замечание. Задачи из данного пункта решить,...

Вывести на экран номера всех элементов, не совпадающих с максимальным
Вывести на экран номера всех элементов, не совпадающих с максимальным нужно использовать 2 процедуры


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

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

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