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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 01.07.2014, 10:17   #1
ggod
Пользователь
 
Регистрация: 26.12.2010
Сообщений: 39
Восклицание

Составить программу нахождения заданного экстремального элемента или его порядкового номера при заданном одномерном массиве А из n элементов (или массивах А и С по n элементов в каждом).

Задание: Определить номер наибольшего из отношений Ai/Ci

я хз вот что у меня вышло
Код:
Program summa; 
Var
   a, b, c: array [1..100] of real;
   I, n: byte; 
   max:real;
imax:real;
Begin 
   Write ('введите размерность массивов:'); 
   Readln(n); 
   For i:=1 to n do 
      Readln (a[i]); { ввод массива a} 
   For i:=1 to n do 
      Readln (b[i]); { ввод массива b} 
   For i:=1 to n do 
      C[i]:= a[i]/b[i]; { вычисление суммы массивов } 
   For i:=1 to n do 
      write (c[i],' '); { вывод массива с } 
imax:=1;
max:= C[1];
for i:=2 to n do
if max<C[i] then
begin
max:=C[i];
imax:=i
end;
writeln ('Максимальный элемент в массиве=',max:5);
writeln ('Его индекс=',imax:5);
readln
end.

Последний раз редактировалось Stilet; 01.07.2014 в 17:11.
ggod вне форума Ответить с цитированием
Старый 01.07.2014, 20:07   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
C[i]:= a[i]/b[i]; { вычисление суммы массивов }
с каких пор "/" является знаком суммы то?
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Visual Basic - находится номер билетика (будем считать номер шестизначным числом). Определить является ли билет счастливым s2df Помощь студентам 4 28.10.2013 00:05
с++ Дан номер года,Определить соответствующий ему номер столетия rinoolik Помощь студентам 1 18.02.2013 22:21
по букве тома определить физический серийный номер накопителя, а не номер тома @лександр Помощь студентам 6 23.09.2010 15:05
Дан файл. Определить длину наибольшего интервала возрастания. Tanu_shka Паскаль, Turbo Pascal, PascalABC.NET 1 18.05.2010 19:07
Определить индекс и значение наибольшего попадающего в интервал (-5,0) элемента. В случае отсутствия тако Ferghost Общие вопросы C/C++ 2 31.05.2009 14:08