Если символ Д встречается в массиве чаще чем символ к то заменить его на символ +

@Оличка · Регистрация: 31.10.2013

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста написать задачу

Если символ Д встречается в массиве чаще чем символ к то заменить его на символ +

@konsul777 · 01.11.2013, 01:26

как-то так...

Pascal

uses crt;
const
 n=100;
var
 c:array[1..n]of char;
 i:byte;
 count,count2,k:integer;
begin
 randomize;
 writeln('массив символов');
 for i:=1 to n do
  begin
  k:=160+random(16);
  c[i]:=chr(k);
  end;
 writeln('массив');
 for i:=1 to n do
 write(c[i],' ');
 count:=0; count2:=0;
 for i:=1 to n do
  begin
  if c[i]='¤' then inc(count);
  if c[i]='Є' then inc(count2);
  end;
 if count > count2 then
  for i:=1 to n do
  if c[i]='¤' then c[i]:='+';
writeln;
writeln('новый массив');
for i:=1 to n do
write(c[i],' ');
readln;
end.

@Оличка 0 / 0 / 0 Регистрация: 31.10.2013 Сообщений: 2
		1
	Если символ Д встречается в массиве чаще чем символ к то заменить его на символ + 31.10.2013, 19:15. Показов 1685. Ответов 1 Метки нет (Все метки) Помогите пожалуйста написать задачу Если символ Д встречается в массиве чаще чем символ к то заменить его на символ + 0

	01.11.2013, 01:26

Если символ Д встречается в массиве чаще чем символ к то заменить его на символ +

Решение