Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Нужен рисунок на Pascal https://www.cyberforum.ru/ pascal/ thread18879.html
Здравствуйте, уважаемые форумачане! Нужен любой более-менее серьезный рисунок на Pascal'e, с использованием различных фигур и цветов. Нужен "положительный" рисунок, т.е. что-нибудь веселое и...
Pascal оставлять поздравление по ссылке
надо програма которая будет оставлять поздравления по етой ссылке http://gelanie.com/elka.php?id=5e848...9b72c6&add=add также она должна выбирать бесплатную игрушку и подписываться.
Pascal Найти частное от деления произведения элементов Вот есть задача: дан массив А(20). Найти частное от деления произведения элементов, стоящих на четных местах, на сумму первых 10 элементов. Вот код на паскале: program massive; uses crt; var... https://www.cyberforum.ru/ pascal/ thread18860.html Pascal Блок - схема построения графика функции https://www.cyberforum.ru/ pascal/ thread18855.html
Нужно построить блок - схему к программе построения графика функции y=sinx. Помогите пожалуйста очень нужно. program Sinx; uses crt, graph; var dr, m: integer; xe,ye,xen,xek,yen, yek:...
Блок - схема Pascal
Нужно блок схему к етой програме. Очень прошу. program Sinx; uses crt, graph; var dr, m: integer; xe,ye,xen,xek,yen, yek: integer; xs,ys,kdx,kdy,kt, i: integer; ...
Pascal Вычислить выражение b^k+(a+1)^k1 type natur=1..maxint; var a,b; real; k; k1: natur Вычислить выражение b^k+(a+1)^k1, разработать функцию Stepen для взведения вещественнго числа в степень k, используя операцию умножения. ... https://www.cyberforum.ru/ pascal/ thread18844.html
Pascal Функция z=f(x,y) https://www.cyberforum.ru/ pascal/ thread18843.html
Здравствуйте! Помогите разобраться с задачкой, ума не приложу как реализовать алгоритм на pascal'e Задача такова: Выввести значения функции z=f(x,y), где x меняется от Xнач до Xкон с шагом Hx, а y...
Pascal Заполнить с клавиатуры симметричную квадратную действительную матрицу
Заполнить с клавиатуры симметричную квадратную действительную матрицу N-го порядка (вводить только верхнюю треугольную матрицу, нижний треугольник, заполнить программно, про помощи операторов...
Pascal Определить в непустом дереве Т ветку с наименьшим суммарным весом элементов. Помогите решить (зачет на носу). Определить в непустом дереве Т ветку с наименьшим суммарным весом элементов. Каждый элемент должен содержать имя N:string, вес W:real, ссылки на другие элементы.... https://www.cyberforum.ru/ pascal/ thread18834.html Pascal Tupbo pascal-строки Помогите пожалуйста решить задачку СРОЧНО НУЖНО; Заранее Спасибо:*) Написать программу где функция charone(c1,c2:string):string-ищет повторяющиеся в строке с1 подряд символы и удаляет те из... https://www.cyberforum.ru/ pascal/ thread18820.html
Блок - схема Pascal
пажалста зделайте Блок - схему к етой задачи program Cardioida; uses Crt, Graph; const grPath = 'C:\LAN\BP\BGI'; A = -50;
Pascal Как сделать дождь в модуле Graph? Как сделать так, чтобы из созданной тучи пошел дождь? https://www.cyberforum.ru/ pascal/ thread18810.html
25 / 20 / 4
Регистрация: 13.03.2008
Сообщений: 79
18.12.2008, 18:38 0

В заданном массиве найти номера (индексы) среднестатистического и уникального элементов - Pascal - Ответ 84603

18.12.2008, 18:38. Показов 1605. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Joey как решение

Решение

Вот держи код, если будут нужны комментарии - добавим; если что не так - поправим:

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
program cyb_38;
uses
 Crt;
var
 n, i, unik, srst: byte;
 sum: longint;
 sr_ar: real;
 mas: array [byte] of integer;
begin
 Randomize;
 ClrScr;
 write('Vvedite kol-vo elementov massiva: ');
 readln(n);
 writeln('Massiv: ');
 for i:= 1 to n do
  begin
   mas[i]:= random(51);
   write(mas[i], ' ');
  end;
 writeln('');
 sum:= 0;
 for i:= 1 to n do
  sum:= sum+mas[i];
 sr_ar:= sum/n;
 unik:= 1;
 srst:= 1;
 for i:= 2 to n do
  begin
   if abs(mas[i]-sr_ar) < abs(mas[srst]-sr_ar) then
    srst:= i;
   if abs(mas[i]-sr_ar) > abs(mas[unik]-sr_ar) then
    unik:= i;
  end;
 writeln('Srednestatisticheskii element: ', mas[srst]);
 writeln('Ego index: ', srst);
 writeln('Unikalnui element: ', mas[unik]);
 writeln('Ego index: ', unik);
 readln;
end.
ЗЫ В следующий раз сперва твои наработки хотелось бы увидеть

Вернуться к обсуждению:
В заданном массиве найти номера (индексы) среднестатистического и уникального элементов Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.12.2008, 18:38
Готовые ответы и решения:

В заданном массиве найти индексы элементов, формирующих монотонно неувеличивающуюся последовательность чисел -
В предоставленом одномерном масиве определить индексы елементов,которые формируют пследовательность...

В заданном массиве К(N) найти индексы элементов, которые кратны минимальному значению элемента массива
В заданном массиве К(N) найти индексы элементов, которые кратны минимальному значению элемента...

В заданном массиве К(N) найти индексы элементов, которые кратны минимальному значению элемента массива.
В заданном массиве К(N) найти индексы элементов, которые кратны минимальному значению элемента...

В заданном массиве K(N) найти индексы элементов, которые кратны минимальному значению элемента массива
Очень срочно надо, помогите создать модуль пожалуйста : в заданном массиве K(N) найти индексы...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2008, 18:38

В заданном массиве К(N) найти индексы элементов, которые кратны минимальному значению элемента массива
В заданном массиве К(N) найти индексы элементов, которые кратны минимальному значению элемента...

В заданном массиве найти наименьший и наибольший элементы и их индексы
у меня естъ эти задачи как я магу делат пажалуста помогите мне ... в заданиом массиве найти...

В массиве A(n) найти и напечатать номера (индексы) локальных максимумов
Здравствуйте дорогие программисты! Пожалуйста прочтите, не оставайтесь равнодушными!!! На вас...

В массиве найти и напечатать номера (индексы) локальных максимумов (Прокомментировать код)
#include &lt;iostream&gt; #include &lt;conio.h&gt; using namespace std; int main () { int n, i;...

В массиве A(n) найти и напечатать номера (индексы) локалальных максимумов, то есть таких ai, что ai-1<ai>ai+1
В массиве A(n) найти и напечатать номера (индексы) локалальных максимумов, то есть таких ai, что...

В произвольно заданном одномерном массиве определить номера двух элементов с наименьшими значениями
Добрый вечер!!! помогите пожалуйста по c#: В произвольно заданном одномерном массиве определить...

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