|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
13.11.2008, 10:59 | #1 |
Пользователь
Регистрация: 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)Определить, что больше – сумма элементов первой строки или сумма элементов третьей строки. Соответствующее сообщение вывести на экран. |
13.11.2008, 11:03 | #2 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,646
|
Для первой группы задач можно составить общий шаблон решения:
Код:
E-Mail: arigato.freelance@gmail.com
|
13.11.2008, 14:44 | #3 |
Пользователь
Регистрация: 07.11.2008
Сообщений: 14
|
А как дальше делать, кто-нибудь подскажет.......?
|
13.11.2008, 15:41 | #4 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,646
|
Вы предложите свой вариант (пусть и не совсем рабочий), мы поможем исправить ошибки.
E-Mail: arigato.freelance@gmail.com
|
13.11.2008, 17:06 | #5 |
Пользователь
Регистрация: 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. |
13.11.2008, 17:39 | #6 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,646
|
writeln(nom); вынесите за пределы цикла.
А перед началом цикла присвойте nom := 1 (на случай, если он и есть минимальный). E-Mail: arigato.freelance@gmail.com
|
14.11.2008, 12:59 | #7 |
Пользователь
Регистрация: 14.11.2008
Сообщений: 15
|
1)Найти индекс минимального элемента массива.
Последний раз редактировалось Tosa; 14.11.2008 в 13:07. |
14.11.2008, 13:04 | #8 |
Пользователь
Регистрация: 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. |
14.11.2008, 13:31 | #9 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Код:
|
21.11.2008, 12:55 | #10 |
Пользователь
Регистрация: 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. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задача 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 |