Удалить дубликаты из массива символов. Матрица из 0 и 1

  • Автор темы JFL
  • Дата начала
J

JFL

Гость
#1
Помогите пожалуйста.
2 задачки по паскалю, сегодня писать/сдавать отчет по практике (
1.Задан массив из k символов. Удалить из него повторные вхождения каж-дого символа.
2.Задан двухмерный массив целых чисел A размером N на M, состоящий из нулей и единиц. Найти количество нулей и единиц в этом массиве.

Заранее благодарен, но, даже, если лень будет писать, спасибо хоть что уделили внимание этому :)

Добавлено: Нашел тоже самое по принципу строки.
п.с. Паскаль до этого вообще не учил :/
Код:
program xX;
var cr:intiger;i:integer;c:char;s:string;
begin
writeln('vvedite simvol')
readln(c);
writeln('vvedite stroky')
readln(s)
i:=1;
cr:=0:
while i<length(s) do
begin
if S[1]=C then cr:=cr+1;
if cr>1 then delete(S,i,1)else i:=i+1;
end;
Но это "недоделка"
 

hosm

* so what *
18.05.2009
2 442
9
#2
если массив правильно сформирован (m*n элементов - только 0 и 1), то так:
Код:
var kol0, kol1 : integer;
kol0 :=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j]=0 then 
kol0 :=kol0 + 1;
kol1 :=m*n-kol0;
а если может быть что-то еще, то так:
Код:
var kol0, kol1 : integer;
kol0 :=0;
kol1 :=0; 
for i:=1 to n do
for j:=1 to m do
if a[i,j]=0 then 
kol0 :=kol0 + 1
else 
if a[i,j]=1 then 
kol1 :=kol1 + 1;
 
J

JFL

Гость
#3
С радостью выслушаю твои предложения о выражении благодарности именно здесь.
 
J

JFL

Гость
#4
Я заблудился, помоги же мне )
Это инзначально подрузамевалось в вышенаписанном