Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Чувак
1 / 1 / 1
Регистрация: 04.01.2012
Сообщений: 62
#1

Найти индекс минимального элемента массива - Turbo Pascal

10.05.2012, 10:47. Просмотров 339. Ответов 1
Метки нет (Все метки)

Помогите найти индекс минимального элемента массива.
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 massiv1;
uses crt;
const n=10;
var a:array[1..n] of real;
min:real; i:integer;
begin
clrscr;
randomize;
for i:=1 to n do
 begin
 a[i]:=4*random-2;
 write(a[i]:6:2);
 end;
writeln;
min:=a[1];
for i:=2 to n do
  begin
     if min>a[i] then
       min:=a[i];
  end;
writeln(min:0:2);
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.05.2012, 10:47
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти индекс минимального элемента массива (Turbo Pascal):

Найти индекс минимального элемента массива типа char длиной 12
Добрый день! Помогите, пожалуйста! Нужно решить задачу на ТурбоПаскале:...

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

Найти индекс минимального элемента матрицы
Помогите составить блок-схему или программу на Turbo Pascal. Дана матрица....

Найти и напечатать: значение и индекс(ы) минимального элемента
Создать одномерный массив из n случайных целых чисел из диапазона . Найти и...

Найти индекс наибольшего элемента массива
Решить: Создать массив с именем А из 10-ти элементов, задав значения его...

Найти индекс первого положительного элемента массива
1. Дан одномерный целочисленный массив A, состоящий из n элементов. Найти...

1
kloks
54 / 54 / 30
Регистрация: 08.05.2012
Сообщений: 162
10.05.2012, 12:08 #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
24
25
26
27
28
program massiv1;
uses crt;
const n=10;
var a:array[1..n] of real;
min:real; i,j:integer; // добавлено j
begin
clrscr;
randomize;
for i:=1 to n do
 begin
 a[i]:=4*random-2;
 write(a[i]:6:2);
 end;
writeln;
min:=a[1];
j := 1; // ++
for i:=2 to n do
  begin
     if min>a[i] then
     begin
       min:=a[i];
       j := i; // ++
     end;
  end;
writeln(j); // ++
writeln(min:0:2);
readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2012, 12:08
Привет! Вот еще темы с решениями:

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

Найти номер минимального элемента массива
В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1)...

Найти индексы минимального элемента массива
Создать массив с элементами...

Найти номер минимального по модулю элемента массива
В одномерном массиве, состоящем из n вещественных элементов, вычис- лить: 1)...


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

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

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