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

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

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

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

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

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

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

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

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

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

1
Ev[G]eN
iOS/Android Developer
Эксперт С++
5115 / 1553 / 950
Регистрация: 23.01.2011
Сообщений: 3,179
Завершенные тесты: 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
Привет! Вот еще темы с решениями:

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

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

Заменить на единицы все элементы массива, значения которых больше 3 , если максимальный элемент массива имеет значение от 0 до 5
Помогите пожалуйста решить 2 задачи... 1) Если сумма значений элементов с...

Заменить все элементы массива стоящие после минимального на значение минимального элемента
Заменить все элементы массива стоящие после минимального на значение...


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

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

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