С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Kirysha
0 / 0 / 0
Регистрация: 30.09.2014
Сообщений: 16
1

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

01.10.2014, 08:52. Просмотров 860. Ответов 1
Метки нет (Все метки)

При помощи случайных чисел ввести вектор Z=(z1,z2...,zn),n=15.Вывести на экран вектор номера первых трех максимальных по абсолютной величине элементов.
Заранее спасибо)
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.10.2014, 08:52
Ответы с готовыми решениями:

Произведение элементов по абсолютной величине больших трех
Произведение элементов по абсолютной величине больших трех Первый массив...

произведение элементов массива по абсолютной величине больших трех
1-ый массив: R(20); 2-ой массив: P(31); определить с помощью FUNCTION...

Определить наибольший по абсолютной величине среди элементов первой четверти массива
Определить наибольший по абсолютной величине среди принадлежащих элементов...

Pascal. Дан массив целых чисел из 14 элементов. Найти произведение первых трех отрицательных элементов
Дан массив целых чисел из 14 элементов. Найти произведение первых трех...

Найти наименьший, по абсолютной величине, элемент главной диагонали матрицы s{n, n}
Найти наименьший, по абсолютной величине, элемент главной диагонали матрицы...

1
Joy
Эксперт Pascal/Delphi
2177 / 1203 / 1439
Регистрация: 29.08.2014
Сообщений: 4,389
01.10.2014, 13:40 2
Лучший ответ Сообщение было отмечено Kirysha как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const n=15;
var
  z:array[1..n] of real;
  i,j:integer;
  m:integer;
begin
  randomize;
  write('Z=(');
  for i:=1 to n do begin
    z[i]:=15-random*30;
    write(z[i]:8:2);
  end;
  writeln(')');
  for j:=1 to 3 do begin
   m:=1;
    for i:=1 to n do
      if abs(z[i])>abs(z[m]) then m:=i;
      write(m,#44);
    z[m]:=0;  
  end;  
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.10.2014, 13:40

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

Найти наибольший и наименьший по абсолютной величине элементы матрицы и поменять их местами
Дана целочисленная матрица {Aij}i=1..n,j=1..m (n,m<=100). Найти наибольший и...

Найти наибольший, по абсолютной величине, элемент матрицы (нужно исправить код)
Дана задача следующего типа: Найти наибольший, по абсолютной величине,...


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

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

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