Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Tanya_d
0 / 0 / 0
Регистрация: 06.10.2013
Сообщений: 2
#1

Найти сумму положительных элементов массива с нечетными номерами

07.10.2013, 00:11. Просмотров 403. Ответов 2
Метки нет (Все метки)

а задача такая: в одномерном массиве состоящем из n вещественных чисел найти: сумму положительных элементов с нечетными номерами, минимальную сумму трех соседних элементов, сформировать новый массив состоящий из элементов исходного массива, равных предпоследнему элементу.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
{$APPTYPE CONSOLE}
 
 uses
 SysUtils;
 const nmax=50;
 type tmas= array[1..nmax] of Real;
 var a,b:tmas;
 sum,mins:LongInt;
 n,i,j:Integer;
 begin
 Writeln('Razmer massiva ');
 Readln(n);
 Writeln('Vvedite elementi massiva v odnoi stroke cherez probel, v konce nagzmite ENTER');
 for i:=1 to n do read(a[i]);
 for i:=1 to n do Write(a[i]:7:2);
 Writeln;
 sum:=0;
 for i:=1 to n do
 begin
 if (a[1]>0) and (i mod 2<>0) then
 sum:= sum+ a[i];
 mins:= a[i] + a[i+1] + a[i+2];
 end;
 for i:=2 to(n-2) do
 begin
 if (a[i]+a[i+1]+a[i+2])<mins then
 mins:=a[i]+a[i+1]+a[i+2];
 b[j]:=a[n-1];
 Writeln('Noviy massiv');
 for j:=1 to n do write(b[j]:7:2);
 Writeln;
 end;
 Writeln('Summa theh sosednih elementov = ',sum:7:2);
 Writeln('Minimalnaya summa treh sosednih elementov = ',mins:7:2);
 Readln;
 end.
подозреваю, что неправильно тут все, ибо в программировании я не шарю вообще...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.10.2013, 00:11
Ответы с готовыми решениями:

Массив: Получить сумму элементов массива с нечетными номерами
В одномерном массиве, состоящем из n вещественных элементов, вычислить: •...

Вычислить сумму элементов массива с нечетными номерами (цикл For)
Для тех, кто шарит в теме.:( Помогите сделать задачу, все ошибки выходят....

Найти максимальный элемент массива из его элементов с нечетными номерами
пожалуйста дан массив A размера N. Найти максимальный элемент из его элементов...

Массив: В массиве вычислить сумму минимальных элементов с нечетными номерами...
В одномерном массиве вычислить сумму минимальных элементов с нечетными номерами...

Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно
Дан массив размера N и целые числа K и L (1&lt;K≤L≤N). Найти сумму всех элементов...

2
Игорь[Igor]
716 / 468 / 128
Регистрация: 24.12.2008
Сообщений: 3,910
07.10.2013, 01:01 #2
Замени
Delphi
1
sum,mins:LongInt;
на
Delphi
1
sum, mins: extended;
0
northener
пофигист широкого профиля
3257 / 2309 / 629
Регистрация: 15.07.2013
Сообщений: 13,643
07.10.2013, 02:23 #3
Цитата Сообщение от Tanya_d Посмотреть сообщение
подозреваю, что неправильно тут все
Почти правильно подозреваете.
Но чего вы хотите добиться запостив сей топик?
Найти и исправить ошибки, которые не позволяют скомпилировать этот исходник? Или найти дополнительно все ошибки в алгоритме?
Первое легко, второе заслуживает оплаты.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.10.2013, 02:23

Найти максимальный элемент из его элементов с нечетными номерами
Дан массив A размера N. Найти максимальный элемент из его элементов с нечетными...

Все элементы массива с четными номерами заменить средним арифметическим элементов с нечетными значениями
1)Дан одномерный массив Yn. Удалить первые три элемента массива. Все элементы с...

Найти сумму положительных элементов массива
Программа почти готова, осталось только во второй части найти сумму...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru