0 / 0 / 0
Регистрация: 31.03.2014
Сообщений: 18

Удалить из матрицы все элементы, не кратные семи, но кратные трем

02.04.2014, 12:37. Показов 994. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Заданная матрица целых чисел размером (M, N). Удалить из матрицы все
элементы, не кратные семи, но кратные трем.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
02.04.2014, 12:37
Ответы с готовыми решениями:

Удалить минимальный элемент массива и все элементы, кратные 5.
Задание. Выполнить действия над одномерным массивом. Удалить минимальный элемент массива и все элементы массива кратные 5. БУДУ...

В массиве удалить все элементы кратные заданному числу
Задать три массива: один случайными целыми числами, второй вещественными положительными числами, третий - целыми числами в диапазоне...

Заменить элементы файла кратные трем
Создать файл, состоящий из N целых чисел. Вывести содержимое этого файла на экран. Заменить элементы файла, созданного в задании 1, кратные...

3
92 / 92 / 99
Регистрация: 25.01.2013
Сообщений: 326
02.04.2014, 13:54
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
Uses crt;
const n=10; m=10;
var a,b:array[1..m,1..n] of integer;
    i,j,bi,bj:integer;
begin clrscr; randomize;
  for i:=1 to m do
   for j:=1 to n do a[i,j]:=Random(99)+1;
 
  for i:=1 to m do
  begin
    for j:=1 to n do write(a[i,j]:4);
    writeln;
  end;
  writeln;
 
  Writeln('Itog');
  bi:=1; bj:=1;
  for i:=1 to m do
   for j:=1 to n do if ((a[i,j] mod 7)<>0)and((a[i,j] mod 3)=0) then
    begin
      b[bi,bj]:=a[i,j];
      if bj=m then begin bj:=1; bi:=bi+1; end else bj:=bj+1;
    end;
 
  for i:=1 to bi do
  begin
    for j:=1 to n do if b[i,j]<>0 then write(b[i,j]:4);
    writeln;
  end;
  readln;
end.
0
Почетный модератор
 Аватар для Puporev
64308 / 47605 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
02.04.2014, 14:00
Цитата Сообщение от Mahmud2014 Посмотреть сообщение
Удалить из матрицы все
элементы, не кратные семи, но кратные трем.
А у тебя?
0
92 / 92 / 99
Регистрация: 25.01.2013
Сообщений: 326
02.04.2014, 14:05
Точняк! Там отрицание сделать надо. Вот так правильно.

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
Uses crt;
const n=10; m=10;
var a,b:array[1..m,1..n] of integer;
    i,j,bi,bj:integer;
begin clrscr; randomize;
  for i:=1 to m do
   for j:=1 to n do a[i,j]:=Random(99)+1;
 
  for i:=1 to m do
  begin
    for j:=1 to n do write(a[i,j]:4);
    writeln;
  end;
  writeln;
 
  Writeln('Itog');
  bi:=1; bj:=1;
  for i:=1 to m do
   for j:=1 to n do if not(((a[i,j] mod 7)=0)and((a[i,j] mod 3)=0)) then
    begin
      b[bi,bj]:=a[i,j];
      if bj=m then begin bj:=1; bi:=bi+1; end else bj:=bj+1;
    end;
 
  for i:=1 to bi do
  begin
    for j:=1 to n do if b[i,j]<>0 then write(b[i,j]:4);
    writeln;
  end;
  readln;
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
02.04.2014, 14:05
Помогаю со студенческими работами здесь

Вывести на печать элементы массива, кратные трем
КТО ЧЕМ МОЖЕТ ПОМОГИТЕ!!!!!(нужно срочно) #47. Вычислить значения функции z=x√(x*y), где x изменяется от 1 с шагом 0.1 до 2 ,...

Напечатайте все двухзначные числа, которые кратные 5 и не кратные 3
в паскаль. помогите пожалуйста 1) Напечатайте все двухзначные числа, которые кратные 5 и не кратные 3.

Дан массив из указателей на целые числа, вывести все члены данного массива, кратные 3, кратные 5
Дан массив из указателей на целые числа вывести все члены данного массива кратные 3 , кратные 5 Заранее благодарю.

Вычислить сумму элементов массива и разделить все элементы матрицы, кратные 5, на эту сумму
Помогите пожалуйста!!! Зарываюсь! Дана квадратная действительная матрица. Вычислить сумму элементов массиваю Разделить все элементы...

Все элементы массива, кратные числу 10, заменить 0.
Дан массив целых чисел. а)Все элементы, кратные числу 10, заменить 0.


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

Новые блоги и статьи
Вопросы на собеседованиях по микросервисам
ArchitectMsa 27.03.2025
Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .
Взаимодействие Python с REST API
py-thonny 27.03.2025
REST API - это архитектурный стиль взаимодействия компонентов распределённого приложения в сети. Python располагает функциональным набором инструментов для работы с REST API и основная библиотека для. . .
sshd restrictions, ssh access limitations
jigi33 26.03.2025
sshd restrictions | ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel
Компиляция C++ с Clang API
NullReferenced 24.03.2025
Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .
Многопоточное программировани­е в C#: Класс Thread
UnmanagedCoder 24.03.2025
Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .
SwiftUI Data Flow: Передача данных между представлениями
mobDevWorks 23.03.2025
При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .
Моки в Java: Сравниваем Mockito, EasyMock, JMockit
Javaican 23.03.2025
Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .
Архитектурные паттерны микросервисов: ТОП-10 шаблонов
ArchitectMsa 22.03.2025
Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .
Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов
GameUnited 22.03.2025
Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .
Образование и практика
Igor3D 21.03.2025
Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru