Массив

@Deep-Minimal · Регистрация: 18.06.2009

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

Здравствуйте!
Помогите пожалуйста с двумя задачами!
1 -
В одномерно массиве, состоящем из n вещественных элементов, вычислить произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами. Упорядочить элементы массива по убыванию.

вот листинг:
я сделал массив, нашел максимум и минимум.

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
program laba4A;
uses crt;
var
   j,p,n,i,min,mini,max,maxi : integer;
   a: array [1..100] of integer;
begin
     clrscr;
     writeln('vvod dlny massiva ');
     readln(n);
     writeln('vvedite element ');
     readln(j);
     for i:=1 to n do
         begin
              a[i]:= random (j);
              write (a[i]:3);
         end;
 
         for i:=1 to n do
             begin
                  if a[i]<min then
                     begin
                          min:=a[i];
                     end;
                         if a[i]>=max then
                            begin
                                 max:=a[i];
                            end;
             end;
             writeln;
             writeln('min element', min:3);
             writeln('max element', max:3);
             readkey
 end.

вот 2 задача:
Задан двумерный массив nxm в котором A[i] [j]=1 , если клетка [i] [j] принадлежит какому либо прямоугольнмку, и A [i] [j]=0 в противном случае (не принадлежит). НАписать программу, подсчитывающую кол-во прямоугольников.
Заранее огромнейшее спасибо!

@c00le® · 20.06.2009, 17:52

срортировка применительно к вашей программе:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
           {сортировка} 
            for i:= n-1 downto 1 do
                for j:= 1 to i do
                  if a[j]<a[j+1] then
                     begin
                  tmp:=a[j];
                a[j]:=a[j+1];
            a[j+1]:=tmp;
            end;
 
                writeln('Otsortirovanniy: ');
                  for i:= 1 to n do
             write(a[i]:3);
             readkey;
 end.

Pascal
1
2
3
4
5
6
7
 
{произведение между min и max}                
             k:=1;
                  for i:= mini+1 to maxi-1 do
                      begin
                         k:=a[i]*k;
             end;

@Deep-Minimal · 20.06.2009, 18:51 **[ТС]**

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

Добавлено через 40 минут 23 секунды

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
53
54
program laba4A;
uses crt;
var
   j,p,n,i,k,min,mini,tmp,max,maxi : integer;
   a: array [1..100] of integer;
begin
     clrscr;
     writeln('vvod dlny massiva ');
     readln(n);
     writeln('vvedite element ');
     readln(j);
     for i:=1 to n do
         begin
              a[i]:=  random (j);
              write (a[i]:3);
         end;
 
         for i:=1 to n do
             begin
                  if a[i]<min then
                     begin
                          min:=a[i];
                     end;
                         if a[i]>=max then
                            begin
                                 max:=a[i];
                            end;
             end;
             writeln;
             maxi:=abs(max);
             mini:=abs(min);
             {ymnogenie}
             k:=1;
                  for i:= mini+1 to maxi-1 do
                      begin
                         k:=a[i]*k;
                      end;
                      for i:= n-1 downto 1 do {sortirovka}
                          for j:= 1 to i do
                              if a[j]<a[j+1] then
                                 begin
                                      tmp:=a[j];
                                      a[j]:=a[j+1];
                                      a[j+1]:=tmp;
                                      end;
                                      writeln('otsortirovannyu massiv' );
                                      for i:= 1 to n do
                                          write(a[i]:3);
                                          writeln;
                                          writeln('min element', mini:3);
                                          writeln('max element', maxi:3);
                                          writeln('proizvedenie', k:3);
                                          readkey
 end.

по моему правильная программа к 1-ой задаче! Сейчас буду думать над 2-ой задачей.

@c00le® · 21.06.2009, 02:23

гм...ну как бы maxi и mini это индексы максимального и минимального элемента...

@Deep-Minimal · 25.06.2009, 18:37 **[ТС]**

Up! Помогите пожалуйста понять, как подсчитать прямоугольники, а то, я вообще не понимаю, как это делать.. =(

Задан двумерный массив nxm в котором A[i] [j]=1 , если клетка [i] [j] принадлежит какому либо прямоугольнмку, и A [i] [j]=0 в противном случае (не принадлежит). НАписать программу, подсчитывающую кол-во прямоугольников.

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@c00le® 138 / 138 / 65 Регистрация: 20.03.2009 Сообщений: 235
	21.06.2009, 02:23
	гм...ну как бы maxi и mini это индексы максимального и минимального элемента... 1

@Deep-Minimal 4 / 4 / 0 Регистрация: 18.06.2009 Сообщений: 64
	25.06.2009, 18:37 [ТС]
	Up! Помогите пожалуйста понять, как подсчитать прямоугольники, а то, я вообще не понимаю, как это делать.. =( Задан двумерный массив nxm в котором A[i] [j]=1 , если клетка [i] [j] принадлежит какому либо прямоугольнмку, и A [i] [j]=0 в противном случае (не принадлежит). НАписать программу, подсчитывающую кол-во прямоугольников. 0