Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
GastX
0 / 0 / 0
Регистрация: 12.05.2010
Сообщений: 18
1

Заменить все элементы массива, стоящие между нулевыми, на единицы

27.02.2011, 10:21. Просмотров 843. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста.
Дан массив С1,С2,С3....С24. В массиве есть два элемента равные 0. Заменить все элементы стоящие между ними, на 1 единицы. Ввод с клавиатуры нуже и что бы результат выводился на экран.О_о
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.02.2011, 10:21
Ответы с готовыми решениями:

Заменить в массиве все элементы, стоящие между нулевыми, на единицы
Дан массив С1,С2,...,С24 В массиве есть 2 элемента, равные нулю. Заменить все элементы стоящие...

Одномерный массив/ Заменить все элементы, стоящие между нулевыми, на единицы
Дан массив С1,С2...,С24. В массиве есть два элемента равные 0. Заменить все элементы стоящие...

Одномерный массив. Заменить все элементы, стоящие между нулями, на единицы
Дан массив С1,С2,..,С24.В массиве есть два элемента равные 0. Заменить все элементы стоящие...

В массиве все нечетные элементы, стоящие ниже минимального элемента массива и стоящие слева от максимального значения массива заменить на 0
1) в массиве все нечетные элементы, стоящие ниже минимального элемента массива и стоящие слева от...

Элементы массива X, стоящие между минимальными и максимальным элементом, заменить элементами массива Y
Ввести два однмерных массива X(N) и Y(M), где M>(N-2). Все элементы массива X, стоящие между...

1
Ev[G]eN
iOS/Android Developer
Эксперт С++
5116 / 1554 / 950
Регистрация: 23.01.2011
Сообщений: 3,185
Завершенные тесты: 1
27.02.2011, 11:00 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
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
const
 n=24;
var
 arr: array[1..n] of integer;
 i, fst, sst: integer;
begin
  for i:=1 to n do
   read(arr[i]);
    for i:=n downto 1 do
     if arr[i]=0 then
      fst:=i;
       for i:=1 to n do
        if arr[i]=0 then
         sst:=i;
          if sst-fst>1 then
           begin
            inc(fst);
            dec(sst);
             for i:=fst to sst do
              arr[i]:=1;
           end
           else
            writeln('Невозможно!');
  for i:=1 to n do
   write(arr[i], ' ');
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.02.2011, 11:00

Заменить все элементы массива стоящие до максимального нулями.
uses crt; var m:array of integer; i,n,a,b,max:integer; begin clrscr; writeln('введите...

Заменить все элементы массива стоящие до заданного номера нулями
Заменить все элементы массива стоящие до заданного номера нулями. помогите пожалуйста )

Удалить все элементы массива, стоящие между минимальным положительным и максимальным отрицательным элементами
Помогите плиззз=((( Задание:В массиве A=(a1, а2, ..., аn) удалить все элементы, стоящие между...


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

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

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