2 / 2 / 1
Регистрация: 05.10.2016
Сообщений: 58
1

Найти сумму элементов массива, расположенных после минимального элемента

05.10.2016, 15:15. Показов 3628. Ответов 1
Метки нет (Все метки)

Составить текст программы на языке Паскаль, содержащий:
1) функцию, выполняющую действия над массивами (в соответствии с
вариантом);
2) функцию, выполняющую ввод элементов массива с клавиатуры;
3) функцию, выполняющую заполнение массива случайными
величинами в заданном диапазоне;
4) функцию, выполняющую вывод элементов массива на экран в виде
таблицы.

Варианты заданий:
1)Cумму элементов массива, расположенных после минимального
элемента. Диапазон – [-10;30]
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.10.2016, 15:15
Ответы с готовыми решениями:

Найти сумму элементов массива, расположенных после последнего минимального элемента
Вычислить: 1) кол-во элементов, меньших С 2) сумму элементов массива, расположенных после...

Сумму элементов массива, расположенных до минимального элемента
В одномерном целочисленном массиве (размер массива (не больше 20) и значения его элементов вводить...

Найти сумму модулей элементов массива, расположенных после первого элемента, равного нулю
сумму модулей элементов массива, расположенных после первого элемента, равного нулю

Найти отношение минимального элемента к сумме элементов расположенных до найденного минимального элемента
Помогите пожалуйста с задачей?!.... Задан одномерный массив,состоящий из 26 чисел. 1.Найти номер...

1
Почетный модератор
64275 / 47574 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
05.10.2016, 16:30 2
Лучший ответ Сообщение было отмечено NikolayStadnik как решение

Решение

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
71
72
73
uses crt;
type mas=array[1..20] of integer;
const x1=-10;
      x2=30;
function vvod_klav(var a:mas;var n:byte):byte;
var i:byte;begin
repeat
write('Введите размер массива от 2 до 20 n=');
readln(n);
until n in [2..20];
writeln('Введите элементы массива, целые числа в диапазоне [',x1,'..',x2,']');
for i:=1 to n do
repeat
write('a[',i,']=');
readln(a[i]);
until(a[i]>=x1)and(a[i]<=x2);
clrscr;
vvod_klav:=1;
end;
function vvod_sluc(var a:mas;var n:byte):byte;
var i:byte;
begin
repeat
write('Введите размер массива от 2 до 20 n=');
readln(n);
until n in [2..20];
for i:=1 to n do
a[i]:=x1+random(x2-x1+1);
vvod_sluc:=1;
end;
function vyvod(a:mas;n:byte):byte;
var i:byte;
begin
writeln('Массив');
for i:=1 to n do
write(a[i]:4);
writeln;
vyvod:=1;
end;
function summa(a:mas;n:byte):integer;
var i,imn:byte;
    s:integer;
begin
imn:=1;
for i:=2 to n do
if a[i]<a[imn] then imn:=i;
writeln('Минимальный элемент=',a[imn],' его индекс=',imn);
s:=0;
if imn<n then
for i:=imn+1 to n do
s:=s+a[i];
writeln('Сумма после минимального=',s);
summa:=s;
end;
var a:mas;
    n,f:byte;
    k:char;
    s:integer;
begin
clrscr;
randomize;
writeln('Выберите способ ввода массива');
writeln('1-с клавиатуры');
writeln('2-случайным образом');
repeat
readln(k);
until k in ['1','2'];
if k='1' then f:=vvod_klav(a,n)
else f:=vvod_sluc(a,n);
f:=vyvod(a,n);
s:=summa(a,n);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.10.2016, 16:30
Помогаю со студенческими работами здесь

Подсчитайте сумму элементов массива, находящихся после минимального элемента
Помогите решить пожалуйста: Элементы одномерного массива С(I) получаются расчетом по формуле С(I)...

Вычислить сумму элементов массива, расположенных после максимального элемента
В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1)количество элементов...

Определить, сумму элементов массива, расположенных после первого положительного элемента
Дан массив 10 вещественных элементов.Определить, сумму элементов массива, расположенных после...

Вычислить сумму элементов массива, расположенных после первого положительного элемента
Кто знает как решается это? В одномерном массиве, состоящем из n вещественных элементов,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru