Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
GumA111
0 / 0 / 0
Регистрация: 17.06.2015
Сообщений: 1
#1

Найти первые пять положительных элементов массива и 2 последних и вывести в edit

17.06.2015, 21:57. Просмотров 366. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста!!Как найти первые пять положительных элементов и выписать их в Edit затем еще выписать два последних элемента массива, далее вывести всё вместе!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.06.2015, 21:57
Ответы с готовыми решениями:

Найти сумму элементов массива, которые при делении на пять дают в остатке 3 и 4
1. Определить сумму элементов линейного числового массива, которые при делении на пять дают в...

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

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

Вынуть из списка первые девять элементов, и вывести их значения
Дано покащик P1 на вершину списка, содержащий не менее десяти элементов. Вынуть из списка первые...

В Edit ввести символ-разделитель элементов массива
напишите пожалуйста полностью на lazarus Задать границы отрезка в Edit1 и Edit2 и количество...

2
Narimanych
281 / 242 / 129
Регистрация: 23.03.2015
Сообщений: 832
21.06.2015, 00:11 #2
GumA111,
Обязательно в Edit?
0
dalx
0 / 0 / 0
Регистрация: 28.06.2015
Сообщений: 6
29.06.2015, 14:50 #3
на входе некий arr:array of integer, и как-то так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  i,c:integer;
  s:string;
begin
c := 0;
s := EmptyString;
for i := Low(arr) to High(arr) do
  begin
  if arr[i] > 0 then
    begin
    s := s + IntToStr(arr[i]) + ',';
    inc(c);
    if c = 4 then
      Break;
    end;
  end;
s := s + ';';
if Length(arr) > 2 then
  for i := High(arr)-2 to High(arr) do
    s := s + IntToStr(arr[i]);
Edit.Text := s;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.06.2015, 14:50

Вывести первые пять положительных элементов массива в Edit
Ребята помогите разобраться.Я создал динамический массив(m).Мне нужно вывести первые пять...

Вывести первые пять положительных элементов в Edit
Ребята помогите разобраться.Я создал динамический массив(m).Мне нужно вывести первые пять...

Пять последних положительных положительных элементов одномерного массива домножить на номер макс. элемента
Пять последних положительных положительных элементов одномерного массива домножить на номер...


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

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

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