Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Tanya_d
0 / 0 / 0
Регистрация: 06.10.2013
Сообщений: 2
#1

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

07.10.2013, 00:11. Просмотров 392. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти сумму положительных элементов массива с нечетными номерами (Delphi):

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

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

Найти максимальный элемент массива из его элементов с нечетными номерами - Delphi
пожалуйста дан массив A размера N. Найти максимальный элемент из его элементов с нечетными номерами: A1, A3, A5 ... .

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

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

Найти сумму положительных элементов одномерного массива А - Delphi
Найти сумму положительных элементов одномерного массива А. Размерность массива А задает пользователь. Элементы массива заполнить с помощью...

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

Найти удвоенную сумму положительных элементов массива - Delphi
Дан массив целых чисел из n элементов, заполненый случайным образом числами из промежутка . 1. Найти удвоенную сумму положительных...

Для массива a найти сумму положительных и отрицательных элементов - Delphi
Написать программу на Делфи

Найти сумму положительных элементов массива, расположенных перед первым отрицательным - Delphi
Я вообще не шарю в массивах, но знаю что должно быть 3 кнопки 1-Задать размер массива, 2-Ввести значения массива и 3-Решение.

Найти сумму положительных элементов массива, значения которых кратны пяти - Delphi
1)Дан массив целых чисел из n элементов , заполненный случайным образом числами из промежутка. Найти сумму положительных элементов,...


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

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

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