Определить количество элементов, которые при делении на 7 дают остаток 2 или 5

@dinamik24 · Регистрация: 01.12.2010

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

Задан массив Y(4,7).
a. определить количество элементов, которые при делении на 7 дают остаток 2 или 5;
b. подсчитать количество элементов, удовлетворяющих условию к1<аij<= к2 или аij > 1+3,
где к1 и к2 -произвольные числа.
c. осуществить циклический сдвиг элементов прямоугольной матрицы на n элементов вправо
(n может быть больше элементов в строке).

@Puporev · 02.12.2010, 10:03

Сообщение от dinamik24

или аij > 1+3,

Круто! А почему не >4?

@dinamik24 · 02.12.2010, 12:05 **[ТС]**

хз...я скопировал просто...ну значит 4

@Puporev · 02.12.2010, 12:07

Ты не хзкай, а с условием разбирайся...

@dinamik24 · 02.12.2010, 12:13 **[ТС]**

Задан массив Y(4,7).
a. определить количество элементов, которые при делении на 7 дают остаток 2 или 5;
b. подсчитать количество элементов, удовлетворяющих условию к1<Аij<= к2 или Аij > 4,
где к1 и к2 -произвольные числа.
c. осуществить циклический сдвиг элементов прямоугольной матрицы на n элементов вправо
(n может быть больше элементов в строке).

@Puporev · 02.12.2010, 12:14

Сообщение от dinamik24

или Аij > 4,

Фигня это на постном масле, в задании что-то другое было.

@dinamik24 · 02.12.2010, 12:25 **[ТС]**

ну а если без этого??только под а и под ц

@Puporev · 02.12.2010, 13:51

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
46
47
48
49
50
51
52
uses crt;
const m=4;
      k=7;
var y:array[1..m,1..k] of integer;
    n,i,j,p:byte;
    k1,k2,ke1,ke2,x:integer;
begin
writeln('Исходная матрица:');
for i:=1 to m do
 begin
   for j:=1 to k do
    begin
     y[i,j]:=random(20);
     write(y[i,j]:4);
    end;
   writeln;
 end;
repeat
writeln('Введите диапазон чисел k1<k2');
readln(k1,k2);
until k2>k1;
ke1:=0;ke2:=0;
for i:=1 to m do
for j:=1 to k do
 begin
  if y[i,j] mod 7 in [2,5] then ke1:=ke1+1;
  if(y[i,j]>=k1)and(y[i,j]<=k2)then ke2:=ke2+1;
 end;
writeln('Количество элементов, дающих при делении на 7 остаток 2 или 5=',ke1);
writeln('Количество элементов из интервала [',k1,',',k2,'[=',ke2);
repeat
write('Количество сдвигов > 0 n=');
readln(n);
until n>0;
n:=n mod k;
for p:=1 to n do
for i:=1 to m do
 begin
  x:=y[i,k];
  for j:=k downto p+1 do
  y[i,j]:=y[i,j-1];
  y[i,p]:=x;
 end;
writeln('Сдвиг:');
for i:=1 to m do
 begin
  for j:=1 to k do
  write(y[i,j]:4);
  writeln;
 end;
readln
end.

@dinamik24 · 02.12.2010, 19:56 **[ТС]**

спасибо огромное!!!!!!

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@dinamik24 1 / 1 / 0 Регистрация: 01.12.2010 Сообщений: 28

	Определить количество элементов, которые при делении на 7 дают остаток 2 или 5 01.12.2010, 20:29. Показов 2460. Ответов 8 Метки нет (Все метки) Задан массив Y(4,7). a. определить количество элементов, которые при делении на 7 дают остаток 2 или 5; b. подсчитать количество элементов, удовлетворяющих условию к1<аij<= к2 или аij > 1+3, где к1 и к2 -произвольные числа. c. осуществить циклический сдвиг элементов прямоугольной матрицы на n элементов вправо (n может быть больше элементов в строке). 0

@dinamik24 1 / 1 / 0 Регистрация: 01.12.2010 Сообщений: 28
	02.12.2010, 12:05 [ТС]
	хз...я скопировал просто...ну значит 4 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	02.12.2010, 12:07
	Ты не хзкай, а с условием разбирайся... 0

@dinamik24 1 / 1 / 0 Регистрация: 01.12.2010 Сообщений: 28
	02.12.2010, 12:13 [ТС]
	Задан массив Y(4,7). a. определить количество элементов, которые при делении на 7 дают остаток 2 или 5; b. подсчитать количество элементов, удовлетворяющих условию к1<Аij<= к2 или Аij > 4, где к1 и к2 -произвольные числа. c. осуществить циклический сдвиг элементов прямоугольной матрицы на n элементов вправо (n может быть больше элементов в строке). 0

@dinamik24 1 / 1 / 0 Регистрация: 01.12.2010 Сообщений: 28
	02.12.2010, 12:25 [ТС]
	ну а если без этого??только под а и под ц 0

@dinamik24 1 / 1 / 0 Регистрация: 01.12.2010 Сообщений: 28
	02.12.2010, 19:56 [ТС]
	спасибо огромное!!!!!! 0