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

Работа с массивом

21.05.2012, 20:44. Просмотров 989. Ответов 2
Метки нет (Все метки)


Ребят, спасайте(
Дан массив В(20,7) вещественного типа. Найти 3 наибольших значения десятой строки(предполагается, что эти элементы единственные).Одно максимальное значение нашёл, остальные - никак. Помогите плиз.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.05.2012, 20:44
Ответы с готовыми решениями:

Работа с массивом
У меня есть изображение, это изображение было перенесено в массив байтов, потом были проведены...

Работа с массивом.
Есть масив тип булевый необходимо данные в масиве по ключю если совпадает с ключом то +1 а оно у...

Работа с массивом
Всем привет. Необходимо реализовать допустим подсчет чего либо для нескольких людей (например...

Работа с массивом
Заполните массив последовательностью a=a/2, i = a=80h. Нулевой элемент массива – это его длина и...

2
7 / 7 / 2
Регистрация: 19.11.2009
Сообщений: 105
21.05.2012, 22:00 2
Лучший ответ Сообщение было отмечено vavik92 как решение

Решение

a,b,c - три наибольших числа; a -самое большое из трех;
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
a:=В(10,1);
FOR I:=1 TO 7 DO BEGIN
 IF B(10,i)>a THEN BEGIN
    c:=b;
    b:=a;
    a:=B(10,i);
 END;
 IF (B(10,i)>b) AND (B(10,i)<a)  THEN BEGIN
    c:=b;
    b:=B(10,i);
 END;
 IF (B(10,i)>c) AND (B(10,i)<b)  THEN 
    c:=B(10,i);
END;
0
0 / 0 / 0
Регистрация: 21.05.2012
Сообщений: 5
21.05.2012, 22:01  [ТС] 3
Спасибо большое. Задача решена.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.05.2012, 22:01

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Работа с массивом
Задан целочисленный массив Х из 20 элементов, среди которых есть повторяющиеся. Определить...

Работа с массивом
program Project7; {$APPTYPE CONSOLE} uses SysUtils; type mas = array of integer;...

Работа с массивом
Здравствуйте, недавно начал учиться на шарпе. Задача простенькая но вызывает у меня проблему using...

Работа с массивом
Задача: Вычислить произведение элементов массива Y, значение которых не превышает 3*i, где i–индекс...


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

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

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