Подсчитать количество элементов равных символу ''+''

@OLYA19903 · Регистрация: 28.01.2018

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

Дан одномерный символьный массив(char).Подсчитать количество элементов равных символу ''+''

@ZX Spectrum-128 · 28.01.2018, 22:30

Pascal

k:=0;
for i:=1 to n do
 if a[i]='+' then
  inc(k);

@EvilDog17 · 28.01.2018, 23:26

Pascal

program CharArray;
uses crt;
const N = 10000;
var x:array [1..N] of char;
    a, i, j:integer;
begin
  clrscr;
  j:=0;
  writeln('Введите количество элементов массива');
  readln(a);
  writeln('Введите массив');
  for i:=1 to a do
  begin
    readln(x[i]);
    if x[i]='+' then
      inc(j);
  end;
  writeln('В массиве ', j, ' элементов равных "+"');
end.

@OLYA19903 0 / 0 / 0 Регистрация: 28.01.2018 Сообщений: 47
		1
	Подсчитать количество элементов равных символу ''+'' 28.01.2018, 22:27. Показов 1254. Ответов 2 Метки нет (Все метки) Дан одномерный символьный массив(char).Подсчитать количество элементов равных символу ''+'' 0

	28.01.2018, 23:26

Подсчитать количество элементов равных символу ''+''

Решение