Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.93/76: Рейтинг темы: голосов - 76, средняя оценка - 4.93
0 / 0 / 0
Регистрация: 09.10.2012
Сообщений: 4

Дан массив. Определить количество элементов, отличных от последнего элемента.

09.10.2012, 13:58. Показов 14344. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
2.Дан массив А(10). Определить количество элементов, отличных от последнего элемента.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
09.10.2012, 13:58
Ответы с готовыми решениями:

Дан массив целых чисел. Определить количество элементов, отличных от последнего элемента
Дан массив целых чисел. Определить количество элементов, отличных от последнего элемента

Дан вектор,требуется посчитать количество элементов вектора,отличных от его последнего элемента.
Помогите,пожалуйста,вопрос жизни и смерти).

Определить количество элементов, отличных от последнего элемента
Определить количество элементов, отличных от последнего элемента.

5
8 / 8 / 9
Регистрация: 01.10.2012
Сообщений: 100
09.10.2012, 14:02
Массив дан одномерный или нет?
0
0 / 0 / 0
Регистрация: 09.10.2012
Сообщений: 4
09.10.2012, 16:08  [ТС]
одномерный
0
3 / 3 / 2
Регистрация: 19.11.2011
Сообщений: 18
09.10.2012, 19:23
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program massiv;
var
  a: array [1..10] of char;
  i,k:integer;
begin
writeln('Введите 10 символов');
for i:=1 to 10 do
  begin
  read(a[i]);
  end;
for i:=1 to 9 do
  begin 
  if a[i]<>a[10] then k:=k+1 
  end;
writeln('В массиве отличных от последнего элемента ',k,' элементов');
end.
1
8 / 8 / 9
Регистрация: 01.10.2012
Сообщений: 100
09.10.2012, 21:31
В массивах не силен, но программа вроде бы работает. Написал свой вариант c выводом рандомных чисел.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  mas: array[1..10] of integer;
  k,i:integer;
 begin
  for i:=1 to 10 do 
  begin
  mas[i]:=random(50);
  write(' ', mas[i]);
  write;
  end;
     for i:=1 to 9 do 
   if mas[i] <> mas[10] then k:=k+1;
   writeln;
  writeln(' ', 'Количество элементов, отличных от последнего: ',k);
 end.
1
0 / 0 / 0
Регистрация: 09.10.2012
Сообщений: 4
10.10.2012, 14:43  [ТС]
Спасибо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
10.10.2012, 14:43
Помогаю со студенческими работами здесь

Найти количество элементов массива, отличных от значения последнего элемента
массив из 50 чисел и заполнить его случайными числами.сколько в нем элементов, отличных от последнегоелемента

Определить количество элементов массива, отличных от последнего элемента
Sub one() Dim B(20) As Integer Dim i, k As Integer k = 0 For i = 0 To 19 B(i) = Rnd * 20 ThisWorkbook.Sheets(1).Cells(i +...

Определить количество элементов массива, отличных от последнего элемента и их суммы
Дан массив Р(10). Определить количество элементов , отличных от последнего элемента и их суммы 2 -4 5 6 2 -3 2 10 -2 2.

Заполнить массив случайными числами и определить количество элементов, отличных от последнего
2. Дан массив из 50 чисел. Заполните его случайными числами. Определить, сколько в нем элементов, отличных от последнего элемента. Вывести...

Дан массив 50 чисел. Определить сколько среди них отличных от последнего числа
День/ вечер добрый, помогите, пожалуйста, перевести данную задачу в JAVA: &quot;Дан массив 50 чисел(желательно использовать рандом), определить...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru