Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
0 / 0 / 0
Регистрация: 09.06.2018
Сообщений: 87
1

Массив нулей и единиц

23.02.2019, 11:35. Просмотров 1769. Ответов 5
Метки нет (Все метки)


Подскажите что не так с кодом, пишет что "а" не используется при заполнении массива
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
33
34
35
36
37
38
39
40
41
uses crt;
const n=20;
type mas=array[1..n] of integer;
var
  a:mas;
  i,c,max: integer;
 
procedure ini(a:mas);
begin
     for i:=1 to n do
     begin
     a[i]:=random(2);
     write(a[i],' ');
     end;
end;
 
procedure imax(a:mas);
 
  begin
  for i:=1 to n do
  begin
if (a[i]=0) then max:=max+1
      else max:=0;
 if (max>c) then c:=max;
  end;
  end;
 
 
begin
  clrscr;
  randomize;
  writeln('massive: ');
  ini(a);
 
    max:=0;
    c:=0;
  imax(a);
 
  writeln('kol null: ', c);
  readkey;
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.02.2019, 11:35
Ответы с готовыми решениями:

Нужно создать массив состоящий из единиц и нулей
Нужно создать такой массив состоящий из единиц и нулей, чтобы после ввода данных выводилась...

Одномерный массив А(25) состоит только из чисел 0,1 и 2. Найти количество нулей, единиц и двоек
Одномерный массив А(25) состоит только из чисел 0,1 и 2. Найти количество нулей, единиц и двоек....

Данная строка, состоящая из групп нулей и единиц. Найти и вывести на экран группы, состоящие только из нулей
Данная строка, состоящая из групп нулей и единиц. Каждая группа отделяется друг от друга одним или...

Построить массив из нулей и единиц, в которой bi=1 тогда, когда элементы i-ой строки образуют возрастающую пос
Дана матрица а (m x n). Построить последовательность b1, …, bm из нулей и единиц, в которой bi=1...

5
Модератор
62918 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,743
23.02.2019, 11:51 2
Написали бы что пытаетесь сделать.
0
0 / 0 / 0
Регистрация: 09.06.2018
Сообщений: 87
23.02.2019, 12:00  [ТС] 3
Дан массив нулей и единиц, нужно найти найбольшее количество нулей которое повторяется
0
Модератор
62918 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,743
23.02.2019, 12:02 4
Цитата Сообщение от Холопсикон Посмотреть сообщение
которое повторяется
В каком смысле? Если их больше одного то все повторяются.
0
0 / 0 / 0
Регистрация: 09.06.2018
Сообщений: 87
23.02.2019, 13:16  [ТС] 5
Допустим массив 0 0 1 0 0 1 1 0 0 0 0 1 0 1, тут идут подряд 4 нулей.
0
Модератор
62918 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,743
23.02.2019, 13:31 6
Лучший ответ Сообщение было отмечено Холопсикон как решение

Решение

Так повторяющиеся и идущие подряд это разные вещи, писать нужно по русски, а не как умеешь.

Добавлено через 9 минут
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
33
34
35
36
37
38
39
uses crt;
const n=20;
type mas=array[1..n] of integer;
procedure ini(var a:mas);
var i:byte;
begin
for i:=1 to n do
 begin
  a[i]:=random(2);
  write(a[i],' ');
  end;
writeln;
end;
procedure imax(a:mas;var max:byte);
var i,c:byte;
begin
max:=0;
c:=0;
for i:=1 to n do
 begin
  if a[i]=0 then c:=c+1
  else
   begin
    if c>max then max:=c;
    c:=0;
   end;
 end;
end;
var a:mas;
    c:byte;
begin
clrscr;
randomize;
writeln('massive: ');
ini(a);
imax(a,c);
writeln('kol null=',c);
readkey
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.02.2019, 13:31

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Изображение из нулей и единиц
Помогите сделать рисунок при помощи массива состоящий из нулей и единиц. Например: 00000100000...

Преобразовать таблицу из нулей и единиц
Дана таблица А , состоящая из 10 элементов - нулей и единиц . Составить программу преоброзующую...

Построить последовательность из нулей и единиц
Даны две действительные квадратные матрицы порядка m. Построить последовательность из нулей и...

Получить вектор из нулей и единиц по правилу
здравствуйте!!!помогите пожалуйста,ребята,тону в программировании(((задание(pascal):дана матрица...


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

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

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