Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.01.2009, 00:14   #1
Milashka
 
Аватар для Milashka
 
Регистрация: 28.12.2008
Сообщений: 3
Смущение Задача на одномерные массивы в Делфи

Помогите решить задачку на одномерные массивы в Делфи

Найти номера пары последовательных элементов массива В(15) ,введенном с клавиатуры, с наибольшим произведением.
Milashka вне форума Ответить с цитированием
Старый 22.01.2009, 00:32   #2
werser
Форумчанин
 
Регистрация: 11.06.2007
Сообщений: 233
По умолчанию

var b:array [1..10] of integer;
i,d,max,maxi,maxi2:integer;
begin
randomize;
max:=0;
for i:=1 to 10 do
b[i]:=random(10);
for i:=1 to 9 do
begin
d:=b[i]*b[i+1];
if d>max then begin maxi:=i;maxi2:=i+1; end;
end;

label1.caption:=inttostr(maxi,maxi2 );
end;
werser вне форума Ответить с цитированием
Старый 22.01.2009, 00:32   #3
werser
Форумчанин
 
Регистрация: 11.06.2007
Сообщений: 233
По умолчанию

На кнопку это пропиши
werser вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны одномерные массивы А и В. Сформировать массивы, состоящие из элемент LyaLya Помощь студентам 15 20.12.2009 14:12
задача на одномерные массивы salmanov Паскаль, Turbo Pascal, PascalABC.NET 6 19.11.2008 15:59
задача на одномерные массивы pelsh Помощь студентам 3 05.01.2008 21:30