Среда, 08.01.2025
Pascal 4 All
[ · Новые сообщения · Участники · Правила форума · Поиск · RSS ]

 

  • Страница 1 из 1
  • 1
Модератор форума: Seqular, Pavel  

Помогите пожалуйста нужно очень срочно на ОКР!
ShparkiДата: Четверг, 11.11.2010, 07:09 | Сообщение # 1
Новичок
Группа: Пользователи
Сообщений: 1
Репутация: 0
Замечания: 0%
Статус: Offline
1. Найти сумму элементов массива а, состоящего из n элементов.
2. Написать программу нахождения количества раз вхождения символа а в строку.
3. Дан массив а, состоящий из n натуральных чисел. Выбрать элементы, встречающиеся более одного раза.
4. Написать программу, находящую в строке символов длину самой длинной цепочки идущих подряд символов а.
 
SeqularДата: Суббота, 04.12.2010, 20:54 | Сообщение # 2
Хранитель
Группа: Администраторы
Сообщений: 859
Репутация: 35
Статус: Offline
1) Пробегаем по всему массиву, суммируя в переменную:
Code
for i := 1 to N do
sum = sum + a[i];

2) Аналогично. Строка - это тот же массив!
Code
for i := 1 to length(s) do
if (s[i] = 'a') then inc(count);
writeln(count,' раз');

3) Ну как вариант - отсортировать массив, и сравнивать элементы попарно! Если равны - вот оно совпадние!
4) См. 2-ую задачу, легкая модификация (используя индексы i, i+1)


Поддерживаю также проект сообщество молодых сисадминов
 
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2025
Используются технологии uCoz
javascript:;" rel="nofollow" onclick="loginPopupForm(); return false;