С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
ac_milan_89
0 / 0 / 0
Регистрация: 13.02.2012
Сообщений: 3
1

Заменить минимальный по модулю положительный элемент массива последним элементом

13.02.2012, 19:58. Просмотров 1091. Ответов 3
Метки нет (Все метки)

1. Заменить минимальный по модулю положительный элемент массива последним элементом.

2. Заменить первые k элементов массива на те же элементы в обратном порядке.

3. Из элементов массива D сформировать массив A той же размерности по правилу: все четные элементы находятся по формуле Ai = Di+i, , а нечетные по формуле Ai = Di-i.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.02.2012, 19:58
Ответы с готовыми решениями:

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

Заменить минимальный по модулю отрицательный элемент массива первым элементом
1.Заменить минимальный по модулю отрицательный элемент массива первым...

Заменить нулевой элемент каждого столбца максимальным по модулю элементом массива
Добрый вечер, программа считает неправильно,помогите пожалуйста и как в делфи...

Заменить нулевой элемент каждого столбца максимальным по модулю элементом массива
Добрый вечер, помогите,пожалуйста, ошибку в программе выдает, и когда меняю...

Найти минимальный элемент и поменять его местами с последним отрицательным элементом
Дана матрица К(2, 4). Найти минимальный элемент и поменять его местами с...

3
perepe4a
35 / 67 / 10
Регистрация: 03.02.2012
Сообщений: 362
13.02.2012, 21:53 2
Я решил:-)
0
ac_milan_89
0 / 0 / 0
Регистрация: 13.02.2012
Сообщений: 3
13.02.2012, 22:56  [ТС] 3
скинь пожалуйста решение)))) завтра зачёт надо сдать срочно

Добавлено через 17 минут
у 2 не получается
0
Arcor
5039 / 1915 / 408
Регистрация: 20.11.2009
Сообщений: 6,259
Записей в блоге: 1
13.02.2012, 23:20 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var A: Array[0..19] of Integer;
    i: Integer;
    B: Array of Integer;
    k: Integer;
begin
  for i := 0 to 19 do
    begin
      A[i] := Random(100);
      Write(A[i], ' ');
    end;
  WriteLn;
  Write('Vvedite k : ');
  Readln(k);
  SetLength(B, k+1);
  for i := 0 to k do
    B[i] := A[i];
 
  for i := 0 to k do
    A[k-i] := B[i];
 
  for i := 0 to 19 do
    Write(A[i], ' ');
 
  ReadLn;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.02.2012, 23:20

Заменить последний положительный элемент массива на второй элемент
массивы!!! Заменить последний положительный элемент массива на второй...

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

Поменять местами первый отрицательный элемент с последним положительным элементом массива
Одномерный массив. Дан массив Х(10). Поменять местами первый отрицательный...


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

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

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