Используя модуль, сделать задачу

@Mkasi · Регистрация: 07.04.2020

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

Нужно используя модуль, решить следующие задачи:

1. Для данного массива вычислить сумму минимального и максимального
элементов.
2. Для данного массива найти элемент, равный заданному числу Х.
3. Для данных двух массивов найти первый положительный, первый отрицательный
элементы и номер первого нулевого элемента.

Все эти задаче реализовать в 1 программе. Помогите составить код

Модуль:

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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
unit massiv;
interface
const n=10;
type mas=array[1..n]of real;
procedure vvod(var a:mas);
procedure min(a:mas);
procedure max(a:mas);
procedure ravn(a:mas;x:real);
procedure plz(a:mas);
procedure otr(a:mas);
procedure nul(a:mas);
implementation
procedure vvod(var a:mas);
var i:integer;
begin
writeln('Введите ',n,' вещественных чисел');
for i:=1 to n do
readln(a[i]);
end;
procedure min(a:mas);
var i:integer;
    m:real;
begin
m:=a[1];
for i:=2 to n do
if a[i]<m then m:=a[i];
writeln('Минимальный элемент=',m);
end;
procedure max(a:mas);
var i:integer;
    m:real;
begin
m:=a[1];
for i:=2 to n do
if a[i]>m then m:=a[i];
writeln('Максимальный элемент=',m);
end;
procedure ravn(a:mas;x:real);
var i:integer;
begin
i:=1;
while(i<=n)and(a[i]<>x)do inc(i);
if i>n then writeln('Элемента равного ',x,' нет')
else writeln('Элемент равный ',x,' есть')
end;
procedure plz(a:mas);
var i:integer;
begin
i:=1;
while(i<=n)and(a[i]<=0)do inc(i);
if i>n then writeln('Положительных элементов нет')
else writeln('Первый положительный элемент равен ',a[i])
end;
procedure otr(a:mas);
var i:integer;
begin
i:=1;
while(i<=n)and(a[i]>=0)do inc(i);
if i>n then writeln('Отрицательных элементов нет')
else writeln('Первый отрицательный элемент равен ',a[i])
end;
procedure nul(a:mas);
var i:integer;
begin
i:=1;
while(i<=n)and(a[i]<>0)do inc(i);
if i>n then writeln('Нулеых элементов нет')
else writeln('Номер первого нулевого элемента равен ',i)
end;
end.

@Puporev · 05.01.2021, 10:58

А это что?
Реализовать в виде модуля набор подпрограмм для выполнения операций над одномерным массивом

@bormant · 05.01.2021, 10:59

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

используя модуль
Для данного массива вычислить сумму минимального и максимального элементов

Pascal
6
7
procedure min(a:mas);
procedure max(a:mas);

Не выйдет. Текущий дизайн модуля не позволяет решить поставленную задачу его средствами.
Можно смело записывать этот недостаток как ошибку проектирования модуля.

@Mkasi · 05.01.2021, 11:04 **[ТС]**

Там нужна была программа для:
поиск минимального элемента;
поиск максимального элемента;
поиск элемента, равного заданному;
поиск первого положительного;
поиск первого отрицательного;
поиск номера первого нулевого элемента.

а тут для:
1.Для данного массива вычислить сумму минимального и максимального
элементов.
2. Для данного массива найти элемент, равный заданному числу Х.
3. Для данных двух массивов найти первый положительный, первый отрицательный
элементы и номер первого нулевого элемента.

@Puporev · 05.01.2021, 12:38

Это нужно переделывать модуль. Попробуйте сами.

Добавлено через 1 час 26 минут
Модуль для обеих программ, если что не нужно, убери.

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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
unit massiv;
interface
const n=10;
type mas=array[1..n]of real;
procedure vvod(var a:mas);
procedure min(a:mas;var mn:real);
procedure max(a:mas;var mx:real);
procedure ravn(a:mas;x:real);
procedure plz(a:mas);
procedure otr(a:mas);
procedure nul(a:mas);
implementation
procedure vvod(var a:mas);
var i:integer;
begin
writeln('Введите ',n,' вещественных чисел');
for i:=1 to n do
readln(a[i]);
end;
procedure min(a:mas;var mn:real);
var i:integer;
begin
mn:=a[1];
for i:=2 to n do
if a[i]<mn then mn:=a[i];
writeln('Минимальный элемент=',mn);
end;
procedure max(a:mas;var mx:real);
var i:integer;
begin
mx:=a[1];
for i:=2 to n do
if a[i]>mx then mx:=a[i];
writeln('Максимальный элемент=',mx);
end;
procedure ravn(a:mas;x:real);
var i:integer;
begin
i:=1;
while(i<=n)and(a[i]<>x)do inc(i);
if i>n then writeln('Элемента равного ',x,' нет')
else writeln('Элемент равный ',x,' есть')
end;
procedure plz(a:mas);
var i:integer;
begin
i:=1;
while(i<=n)and(a[i]<=0)do inc(i);
if i>n then writeln('Положительных элементов нет')
else writeln('Первый положительный элемент равен ',a[i])
end;
procedure otr(a:mas);
var i:integer;
begin
i:=1;
while(i<=n)and(a[i]>=0)do inc(i);
if i>n then writeln('Отрицательных элементов нет')
else writeln('Первый отрицательный элемент равен ',a[i])
end;
procedure nul(a:mas);
var i:integer;
begin
i:=1;
while(i<=n)and(a[i]<>0)do inc(i);
if i>n then writeln('Нулеых элементов нет')
else writeln('Номер первого нулевого элемента равен ',i)
end;
end.

Общая программа, тоже убери что не нужно.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses massiv;
var a:mas;
    x,mn,mx:real;
begin
vvod(a);
min(a,mn);
max(a,mx);
writeln('Сумма минимального и максимального элеметов=',mn+mx:0:2);
write('Введите число для поиска x=');
readln(x);
ravn(a,x);
plz(a);
otr(a);
nul(a);
end.

Новые блоги и статьи Все статьи Все блоги /
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью 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. . .

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	05.01.2021, 10:58
	А это что? Реализовать в виде модуля набор подпрограмм для выполнения операций над одномерным массивом 0

@Mkasi 0 / 0 / 0 Регистрация: 07.04.2020 Сообщений: 24
	05.01.2021, 11:04 [ТС]
	Там нужна была программа для: поиск минимального элемента; поиск максимального элемента; поиск элемента, равного заданному; поиск первого положительного; поиск первого отрицательного; поиск номера первого нулевого элемента. а тут для: 1.Для данного массива вычислить сумму минимального и максимального элементов. 2. Для данного массива найти элемент, равный заданному числу Х. 3. Для данных двух массивов найти первый положительный, первый отрицательный элементы и номер первого нулевого элемента. 0

Используя модуль, сделать задачу

Решение