0 / 0 / 0
Регистрация: 03.12.2013
Сообщений: 5
1

Найти max и min элементы массива y и сформировать массив z из элементов массива y, находящихся между max и min y. Записать массив z в обратном порядке

14.01.2014, 20:48. Показов 2398. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан массив Х{80 элементов}. Вычислить
https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}_{i}=sin\sqrt{{x}_{i}}+{cos}^{2}{{x}_{1}}^{2}
Найти max и min элементы массива y и сформировать массив z из элементов массива y, находящихся между max и min y. Записать массив z в обратном порядке.
и сделать алгоритм
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.01.2014, 20:48
Ответы с готовыми решениями:

Сформировать массив Z из элементов, находящихся между min и max элементов массива Z
дан массив из 100 элементов, Вычислить y1=xi2-3xi+2/xi2+2xi-1. сформировать массив Z из...

Дан массив A(N, M). Найти среднее арифметическое элементов находящихся между max и min элементов массива
Дан массив A(N, M). Найти среднее арифметическое элементов находящихся между max и min элементов...

Массив: сформировать новый массив из элементов первого массива стоящих между min и max
сформировать новый массив из элементов первого массива стоящих между min и max. Помогите плеес. На...

Перестановка в обратном порядке элементов массив между min и max значениями
Здравствуйте Господа программисты. Подсобите пожалуйста с задачей где нужно переставить в обратном...

1
0 / 0 / 4
Регистрация: 19.01.2014
Сообщений: 8
19.01.2014, 18:43 2
Лучший ответ Сообщение было отмечено flaaat как решение

Решение

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
Program asdadas;
Const
  N=80;
Var
  x,y,z: array [1..N] of real;
  i,Nz: integer;
  max,min,Cos1: real;
Begin
  Randomize;
  For i:=1 to N do
    x[i]:=random;  //Можно сделать ввод боллее крупных чисел
  Cos1:=cos(x[1]*x[1])*cos(x[1]*x[1]);
  For i:=1 to N do
    y[i]:=sin(x[i])+Cos1;
  Max:=y[1];
  Min:=y[1];
  For i:=1 to N do
    Begin
      If Max<y[i] then
        Max:=y[i];
      If Min>y[i] then
        Min:=y[i]
    End;  
  Nz:=N; //Количесвто элементов массива Z (Равно 80 - количесво максимальных и минимальных)
  For i:=1 to N do
    If (y[i]=Min) or (y[i]=Max) then
      dec(Nz);   
 For i:=1 to N do //Заполнение массива Z числами из Y в обратном порядке, минуя Min и Max
    If (y[i]<>Min) and (y[i]<>Max) then
      begin        
        z[Nz]:=y[i];
        dec(Nz)
      end;      
  write('Массив X: ');
  For i:=1 to N do
    write(x[i]:6:2);
  writeln;
  write('Массив Y: ');
  For i:=1 to N do
    write(y[i]:6:2);
  writeln;
    write('Массив Z: ');
  For i:=1 to N do
    write(Z[i]:6:2);      
End.
0
19.01.2014, 18:43
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.01.2014, 18:43
Помогаю со студенческими работами здесь

Переписать в обратном порядке элементы, расположенные между min и max положительными элементами массива
Ребята помогите решить вот такую задачку. В целочисленном массиве размера N переписать в обратном...

Найти произведение элементов массива, находящихся между min и max элементами
В одномерном массиве, состоящем из N вещественных чисел вычислить: •Сумму отрицательных элементов....

Массив. Найти произведение элементов массива, располагающихся между max и min элементами
В общем есть одномерный массив, который состоит из вещественных элементов. Нужно найти...

Сформировать новый массив, исключив из заданного массива числа, расположенные между max/min
Дано натуральное число n, целые числа а0, а1, .. an . Сформировать новый массив, исключив из...

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

Дан массив s[n] найти min и max элементы массива
Помогите решить Дан массив s найти min и max элементы массива


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

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

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