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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 13.11.2008, 10:59   #1
Goldberg
Пользователь
 
Регистрация: 07.11.2008
Сообщений: 14
Вопрос Нужна помощь (задача с массивом)...

Всем доброго времени суток.
Надеюсь на вашу помощь. Нужно написать программу с массивами .
Задание дали такое:

Дан одномерный массив М, состоящий из 10 целых чисел (10,12,0,15,-5,4,-15,3,0,11).
1)Найти индекс минимального элемента массива.
2)Найти сумму отрицательных элементов массива с четными индексами.
3)Найти отношение произведений ненулевых элементов первой и второй половин массива.
4)Найти количество и сумму элементов, следующих за элементами, равными нулю.
5)Найти значение максимального четного элемента массива.
Дан двумерный массив М, состоящий из целых чисел ((-1,5,8,0,11), (1,7,-15,4,0),(3,-4,10,0,16)).
6)Найти сумму и количество положительных и отрицательных элементов массива.
7)Найти сумму и количество элементов столбцов с четными индексами.
8)Найти среднее значение элементов строк с нечетными индексами.
9)Найти отношение сумм элементов 1 и 5-го столбцов.
10)Определить, что больше – сумма элементов первой строки или сумма элементов третьей строки. Соответствующее сообщение вывести на экран.
Goldberg вне форума
Старый 13.11.2008, 11:03   #2
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,219
По умолчанию

Для первой группы задач можно составить общий шаблон решения:
Код:
const M: array[1..10] of Integer = (10,12,0,15,-5,4,-15,3,0,11);
var I, Res: Integer;
begin
  for I := 1 to 10 do
  begin
    {Обрабатываем элемент M[I], формируем переменную Res}
  end; {for}
  WriteLn ('Otvet: ', Res);
end.
Arigato вне форума
Старый 13.11.2008, 14:44   #3
Goldberg
Пользователь
 
Регистрация: 07.11.2008
Сообщений: 14
По умолчанию

А как дальше делать, кто-нибудь подскажет.......?
Goldberg вне форума
Старый 13.11.2008, 15:41   #4
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,219
По умолчанию

Вы предложите свой вариант (пусть и не совсем рабочий), мы поможем исправить ошибки.
Arigato вне форума
Старый 13.11.2008, 17:06   #5
Goldberg
Пользователь
 
Регистрация: 07.11.2008
Сообщений: 14
По умолчанию

пробую так, где-то ошибка...

Program mas;
const M: array[1..10] of integer=(10,12,0,15,-5,4,-15,3,0,11);
var
i,min,nom:integer;
begin
min:=m[1];
for i:=1 to 10 do
if m[i]<min then
begin
min:=m[i];
nom:=i;
writeln(nom);

end;
readln;
end.
Goldberg вне форума
Старый 13.11.2008, 17:39   #6
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,219
По умолчанию

writeln(nom); вынесите за пределы цикла.
А перед началом цикла присвойте nom := 1 (на случай, если он и есть минимальный).
Arigato вне форума
Старый 14.11.2008, 12:59   #7
Tosa
Пользователь
 
Регистрация: 14.11.2008
Сообщений: 15
По умолчанию

1)Найти индекс минимального элемента массива.

Последний раз редактировалось Tosa; 14.11.2008 в 13:07.
Tosa вне форума
Старый 14.11.2008, 13:04   #8
Tosa
Пользователь
 
Регистрация: 14.11.2008
Сообщений: 15
По умолчанию 1)Найти индекс минимального элемента массива.

Program m;
uses crt;
const
M: array [1..10] of integer =
(10,12,0,15,-5,4,-15,3,0,11);
Var
min,i: integer;
BEGIN
clrscr;
min:=M[1];
for i:=2 to 10 do
if (M[i]<min) then
min:=M[i];
writeln(‘min=’,min);
readln;
END.
Tosa вне форума
Старый 14.11.2008, 13:31   #9
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Код:
Program m;
uses crt;
const 
M: array [1..10] of integer =
(10,12,0,15,-5,4,-15,3,0,11);
Var
min,i: integer;
imin:integer; //номер минимального
BEGIN
clrscr;
min:=M[1];imin:=1;
for i:=2 to 10 do
if (M[i]<min) then
   begin
    min:=M[i];
    imin:=i; //запоминаем номер
writeln(‘№min=’,imin);
readln;
END.
puporev вне форума
Старый 21.11.2008, 12:55   #10
Tosa
Пользователь
 
Регистрация: 14.11.2008
Сообщений: 15
По умолчанию 2)Найти сумму отрицательных элементов массива с четными индексами

Program mas;
uses crt;
const
M: array [1..10] of integer =(10,12,0,15,-5,4,-15,3,0,11);
Var
I,s: integer;
BEGIN
clrscr;
s:=0;
for i:=2 to 10 do
if M[i] mod 2 =0 then
if M[i]<0 then
s:=s+M[i];
writeln(‘Znachenie otricatelnix =’,s);
readln;
END.
Tosa вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача Whlie do нужна помощь shadowburn Паскаль, Turbo Pascal, PascalABC.NET 3 21.11.2008 19:06
Задача Pascal на массив (нужна помощь) STIG_E70 Помощь студентам 4 18.06.2008 20:19
[C] Задача на указатели . Нужна помощь shtkuh Помощь студентам 1 26.01.2008 08:47
Задача с матрицей(нужна помощь) VDK23RUS Помощь студентам 5 14.06.2007 12:55