Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 17.11.2015
Сообщений: 15

Если в последовательности С1,С2, ., С5 имеются равные элементы, изменить значения всех ее элементов по прави

03.12.2015, 20:22. Показов 2087. Ответов 0
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Если в последовательности С1,С2, ..., С5 имеются равные элементы, изменить значения всех ее элементов по правилу:
Ci=Ci+Aji .Нужно написать программу на Pascal ABC

Добавлено через 2 часа 5 минут
КАК МОЖНО НАПИСАТЬ ПРОЩЕ?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

var
  a:array[1..max,1..max] of integer;
  c:array[1..max] of integer;
  n,i,j,k:byte;
begin
  clrscr;
  repeat
    write('Размер массива n=');
    readln(n);
  until n in [1..max];
  writeln('Исходный массив C:');
  for i:=1 to n do
    begin
      c[i]:=random(n);
      write(c[i]:4);
    end;
  writeln;
  writeln('Исходная матрица А:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(n);
          write(a[i,j]:4);
        end;
      writeln;
    end;
  k:=0;
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if c[j]=c[i] then
        k:=1;
  if k=1 then
    begin
      writeln('В массиве имеются одинаковые элементы');
      for i:=1 to n do
        begin
          c[i]:=c[i]+a[i,i];
          write(c[i]:4);
        end;
    end
  else
    writeln('В массиве одинаковых элементов нет!');
  readln;
end.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
 03.12.2015, 20:22
Ответы с готовыми решениями:

Если в последовательности имеются равные элементы, изменить значения всех её элементов по правилу
Разработать алгоритм и программу нисходящим способом, предполагая заданной матрицу А из 5 строк и 5 столбцов или одномерные массивы,...

Если в векторе имеются равные элементы, изменить значения всех элементов вектора по правилу
Если в векторе Т имеются равные элементы ,изменить значения всех элементов вектора по правилу Tk=Tk+Ak,k

Определить, имеются ли в массиве элементы, равные сумме всех элементов массива
#include <iostream> using namespace std; int main () { int n; int i = 0; int s=0; cout << "Entered number elements mass"<<...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
 03.12.2015, 20:22
Помогаю со студенческими работами здесь

Массив: Заменить нулем все элементы этой матрицы, равные x, если таковые имеются.
Даны натуральные числа n и m, определяющие соответственно количество строк и столбцов в некоторой заданной матрицы целых чисел, а также...

Изменить значения всех элементов некоторой строки матрицы числами заданной последовательности
Составить программу: а) которая изменяет значения всех элементов некоторой строки двумерного массива числами заданной последовательности; ...

Заменить нулями в матрице те элементы, для которых имеются равные среди элементов массива А
Условие: Дан массив А=(а1,а2...а10) и матрица В=(n*n). Заменить нулями в матрице те элементы, для которых имеются равные среди элементов...

Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные среди элементов массива
Даны массив А=(а1,а2...а10) и матрица В(n*n). заменить нулями в матрице те элементы с четной суммой индексов, для которых имеються равные...

Массивы. Выдать на экран сумму элементов имеющих нечетные индексы и сообщение о том имеются ли элементы равные нулю и их количество
Проблема ребятки,проблема... Помогите с задачей,гласит она так: Создать числовой массив А. Значение Nвводите с клавиатуры.Выдать на...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
 Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru