Помощь - Поиск - Пользователи - Календарь
Полная версия: Ранжирование и умножение масива
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
1111
Люди помогите пожайлуста сделать задачу.
используя программу ранжирования(сортировки), найти произведение 3-х наименьших по модулю элементов массива Т=(2,-1,3,-2,1,5,-3,2,4,1) Распечатать массив до и после ранжирования . И ещё если несложно посмотри в чём у меня тут ошибка.
Задание
найти произведение элементов с чётными номерами массива
program proiz;
var
A:array[1..100] of integer;
p,i,n,m:integer;
BEGIN
repeat
write('Vvedite razmernost masiva'); readln(n);
until n<=100;
p:=1;
for i:=1 to n do
begin
write('a[',i:2,']=');
readln(a[i])
end;
begin
if a[i] mod 2=0 then
p:=p*a[i];
end;
write('proizvedenie elementov= ',p);
readln;
end.
volvo
Цитата
в чём у меня тут ошибка.
Не по заданию делаешь: тебе надо найти НЕ произведение четных элементов, а произведение элементов с четными индексами:

  if i mod 2 = 0 then { <--- !!! }
p:=p*a[i];


Алгоритмы сортировки - здесь: Методы сортировок
Выбирай любой, сортируй с его помощью массив (хотя я совсем не уверен, что ранжирование и сортировка - это одно и то же), и находи 3 минимальных по модулю элемента...
Гость
меня тоже интересует 1 задача в этой теме...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.