Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
seerg0
1 / 1 / 0
Регистрация: 17.03.2010
Сообщений: 17
#1

нужно исправить программу на одномерный массив

26.12.2010, 07:11. Просмотров 281. Ответов 0
Метки нет (Все метки)

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

вот что у меня получилось, но программа работает не правильно:

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
27
28
29
30
31
32
uses crt;
var
n,i,j,k: integer;
a: array[1..100] of integer;
begin
   writeln('vvedite razmernost n:');
   readln(n);
   for i:=1 to n do
   a[i]:=random(2);
   for i:=1 to n do
   write (a[i]);
   writeln;
 
   for i:=1 to n do
   begin
      if a[i]<>0 then write(a[i])
      else
         begin
            k:=0;
            for j:=1 to (n-i) do
            begin
               if a[i+j]=0 then
               inc(k)
               else break;
            end;
         end;
         
      if (k mod 2)=0 then write('00')
         else write('0');
 
    end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.12.2010, 07:11
Ответы с готовыми решениями:

Двухмерный массив.Исключение строки.Нужно исправить программу)
Вот собственно что нужно: В двухмерном массиве исключить строку с заранее...

Одномерный массив. помогите исправить ошибку
Задача: Сформировать одномерный массив размерности, заданной с клавиатуры, в...

Нужно составить одномерный массив
В одномерном массиве, состоящем из n вещественных элементов, заменить каждый...

Метод касательной (Ньютона). Нужно исправить программу
Program kasat; var a,b,x,eps:real;n:integer; function f (x:real):real;...

Дан одномерный массив А(N) .Составить программу.
МОжет кто нибудь помочь студенту медику? Дан одномерный массив А(N)...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.12.2010, 07:11

Создать программу: Одномерный массив в котором: сначало повторяющиеся элементы
Помогите плиз, через пару часов сдача... Создать одномерный массив А,...

Паскаль!циклы и одномерный массив. На экзамен нужно срочно.!!не могу сдать экзамен
СРОЧНО!ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧУ В ПАСКАЛЕ НА ЦИКЛЫ И ОДНОМЕРНЫЙ...

Написать программу, которая методом обмена («пузырька») сортирует по убыванию введенный с клавиатуры одномерный массив
Написать программу, которая методом обмена («пузырька») сортирует по убыванию...


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

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

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