Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
dima_bu
0 / 0 / 0
Регистрация: 16.10.2017
Сообщений: 24
1

Дан одномерный массив натуральных чисел

25.10.2017, 17:56. Просмотров 235. Ответов 3
Метки нет (Все метки)

Дан одномерный массив натуральных чисел. Определить номера минимального и максимального элементов массива. Найти произведение их факториалов. Все вспомогательные алгоритмы оформить в отдельный модуль.Буду Очень благодарен!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.10.2017, 17:56
Ответы с готовыми решениями:

Дан массив натуральных чисел
Дан массив натуральных чисел. Определить есть ли в нем : а)два подряд идущих...

Дан массив, состоящий из n натуральных чисел. Образовать новый массив, элементами которого будут элементы исходного, оканчивающиеся на цифру к.
Помогите пожалуйста задачка на одномерные массивы нужна прога зараннее...

Дан одномерный массив из 10 целых чисел. Подсчитайте количество различных чисел в нем
Дан одномерный массив из 10 целых чисел. Подсчитайте количество различных чисел...

Дан одномерный массив из n чисел
Дан одномерный массив из n чисел. Вывести на экран, отсортировать массив по...

Дан одномерный массив из n чисел
Дан одномерный массив из n чисел. Вывести на экран, отсортирован ли массив по...

3
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3882 / 2864 / 3639
Регистрация: 05.06.2014
Сообщений: 14,086
25.10.2017, 19:09 2
Найти минимальный элемент массива и его номер
Определить факториал числа
Подключаемые модули
0
dima_bu
0 / 0 / 0
Регистрация: 16.10.2017
Сообщений: 24
25.10.2017, 19:34  [ТС] 3
Я в этом не шарю, можете написать задачу?

Добавлено через 15 минут
Вы бы спасли мне жизнь
0
dima_bu
0 / 0 / 0
Регистрация: 16.10.2017
Сообщений: 24
25.10.2017, 20:38  [ТС] 4
Вот я сделал, но она не работает, выводит нули, не могу найти ошибку , исправьте пожалуйста
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
unit dimas; 
interface 
type mass=array[1..100]of integer; 
procedure vuv(b:mass; n:integer); 
procedure vv(var a:mass; var n:integer); 
procedure minf( var b:mass; a:mass;n:integer; var k:integer); 
procedure min(a:mass; n:integer; var m:integer); 
procedure fa(a:mass; n:integer; var m:integer); 
implementation 
procedure min(a:mass; n:integer; var m:integer); 
var f,i:integer; 
begin 
m:=a[1]; 
for i:=1 to n do 
if a[i]<m then m:=a[i]; 
end; 
procedure fa(a:mass; n:integer; var m:integer); 
var i:integer; 
begin 
for i:=1 to n do 
m:=m*a[i]; 
end; 
procedure vv(var a:mass; var n:integer); 
var i:integer; 
begin 
read(n); 
for i:=1 to n do 
readln(a[i]); 
end; 
procedure minf(var b:mass; a:mass; n:integer; var k:integer); 
var i,p,l,m:integer; 
begin 
min(a,n,l); 
fa(a,n,m); 
for i:=1 to n do begin 
k:=k+1; 
if a[i]mod 2=0 then b[k]:=a[i]*l; 
end; 
end; 
procedure vuv(b:mass; n:integer); 
var i:integer; 
begin 
for i:=1 to n do 
write(b[i],' '); 
end; 
end.
Pascal
1
2
3
4
5
6
7
8
uses dimas; 
var a,b:mass; l,f,n:integer; 
begin 
vv(a,n); 
min(a,n,l); 
vuv(b,n); 
writeln('min = ', l); 
end.
Добавлено через 16 минут
Блин,это совсем не то

Добавлено через 19 минут
вот, исправьте(если надо) и надо дописать основную задачу
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
unit dimas; 
interface 
type mass=array[1..100]of integer; 
procedure vv(var a:mass; var n:integer); 
procedure max(var a:mass;n:integer; var k:integer); 
procedure min(a:mass; n:integer; var l:integer); 
procedure sfa(a:mass; k,l:integer; var s:integer ); 
implementation 
procedure min(a:mass; n:integer; var l:integer); 
var f,i:integer; 
begin 
l:=a[1]; 
for i:=1 to n do 
if a[i]<l then l:=a[i]; 
end; 
procedure sfa(a:mass; k,l:integer; var s:integer ); 
var f,f1,i:integer; 
begin 
f:=1; 
f1:=1; 
for i:=1 to k do 
f:=f*a[i]; 
for i:=1 to l do 
f1:=f1*i; 
s:=f+f1; 
 
end; 
procedure vv(var a:mass; var n:integer); 
var i:integer; 
begin 
read(n); 
for i:=1 to n do 
readln(a[i]); 
end; 
procedure max(var a:mass;n:integer; var k:integer); 
var i,p,l,m:integer; 
begin 
k:=a[1]; 
for i:=1 to n do begin 
if a[i]>k then k:=a[i]; 
end; 
end; 
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.10.2017, 20:38

Дан одномерный массив действительного типа. Получить массив, состоящий из отрицательных чисел исходного массива
Помогите пожалуйста решить задачку) Дан одномерный массив действительного...

Дан двумерный массив 5 на 5. Найти количество простых чисел в каждом столбце матрицы и вывести в одномерный массив
Из матрицы 5на5 вывести количество простых чисел в одномерный массив, в котором...

Дан массив натуральных чисел вывести все элементы являющиеся пятизначными
Дан массив натуральных чисел вывести все элементы являющиеся пятизначными ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru