Object Pascal

[DENISzzz]

Помогите пожалуйста в написании листинга программы в Pascal
А) В массиве X=( X1,X2,X3,....Xn ) определить количество элементов меньших среднего арифметического значения.
Б) Не упорядочивая массив удалите из него элементы расположенные между максимальным и минимальным элементом.
Заранее спасибо..

[ByAlex]

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

Помогите пожалуйста в написании листинга программы в Pascal
А) В массиве X=( X1,X2,X3,....Xn ) определить количество элементов меньших среднего арифметического значения.
Б) Не упорядочивая массив удалите из него элементы расположенные между максимальным и минимальным элементом.
Заранее спасибо..

В чем сложность?

[DENISzzz]

Пожалуйста подскажи на какие весы надо жать а то я совсем запутался

[DENISzzz]

Пожалуйста подскажи на какие весы надо жать а то я совсем запутался

[Hacker19_90]

А) В массиве X=( X1,X2,X3,....Xn ) определить количество элементов меньших среднего арифметического значения.

program example;
uses crt;
const
    n = 10;
var
    x: array[1..n] of integer;
    sum: real;
    i: byte;
    count: byte;
begin
    clrscr;
    randomize;
    sum := 0;
    Writeln ('Ваш массив:');
    for i := 1 to n do
    begin
        x[i] := random(51) - 25;
        Write (x[i]:4);
        sum := sum + x[i];
    end;
    Writeln;
    sum := sum/n;
    count := 0;
    for i := 1 to n do
        if x[i] < sum then Inc(count);
    Writeln ('Количество равно ', count);
    ReadKey;
end.

Б) Не упорядочивая массив удалите из него элементы расположенные между максимальным и минимальным элементом.

По поводу этой задачи назовите версию вашего компилятора!

Пожалуйста подскажи на какие весы надо жать а то я совсем запутался

На рисунке обведены!
Повышает репутацию пользователя!

[DENISzzz]

Я очень извиняюсь ....поторопился у меня оказывается Delphi версия 6.0 и
сейчас какую то ошибку выдаёт ..( при вводе Вашего листинга )..но это бог с ним ..просто мне один как бы друг ...очень доказывал что дельфи и обжект паскаль это
одно и тоже но я не очень то верю...сейчас для меня главное чтоб он был ( в смысле листинг ) ....ну вот вобщем как то так ...( очень жаль ....програмирование интересная штука ...а научить не кому ....) ещё раз спасибо Вы профи !!!!

[Hacker19_90]

вот для делфи!

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
    n = 10;
var
    x: array[1..n] of integer;
    sum: real;
    i: byte;
    count: byte;
begin
    randomize;
    sum := 0;
    Writeln ('Ваш массив:');
    for i := 1 to n do
    begin
        x[i] := random(51) - 25;
        Write (x[i]:4);
        sum := sum + x[i];
    end;
    Writeln;
    sum := sum/n;
    count := 0;
    for i := 1 to n do
        if x[i] < sum then Inc(count);
    Writeln ('Количество равно ', count);
    ReadLn;
end.

[whatever]

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

Я очень извиняюсь ....поторопился у меня оказывается Delphi версия 6.0 и
сейчас какую то ошибку выдаёт ..( при вводе Вашего листинга )..но это бог с ним ..просто мне один как бы друг ...очень доказывал что дельфи и обжект паскаль это
одно и тоже но я не очень то верю...сейчас для меня главное чтоб он был ( в смысле листинг ) ....ну вот вобщем как то так ...( очень жаль ....програмирование интересная штука ...а научить не кому ....) ещё раз спасибо Вы профи !!!!

Чтобы ошибки небыло, замени crt на sysutils, убери из тела программы clrscr, и вместо readkey напиши readln. После этого должно заработать.

Update: Едрить-колотить, Hacker19_90, какой же ты шустрый

[Hacker19_90]

Б) Не упорядочивая массив удалите из него элементы расположенные между максимальным и минимальным элементом.
Заранее спасибо..

ну если с потолка, то можно так (тем более раз делфи)

var
    a: array of integer;
    count: integer;
    i, max, min: integer;
begin
    Writeln ('Введите размер массива');
    Readln (count);
    setLength(a, count);
    randomize;
    for i := 0 to length(a) - 1 do
    begin
         a[i] := random(51) - 25;
         Write (a[i]:3);
    end;
    Writeln;
    max := 0;
    min := max;
    for i := 0 to length(a) do
    begin
        if a[max] < a[i]  then max := i;
        if a[min] > a[i] then min := i;
    end;
    if max < min then
    begin
        a[max+1] := a[min];
        setlength(a, max+2);
    end
    else
        if max > min then
        begin
            a[min+1] := a[max];
            setlength(a, min+2);
       end; 
    for i := 1 to length(a) - 1 do
        Write (a[i]:3);
    Writeln;
    Readln;
end.

Не проверял!

[DENISzzz]

Спасибо !!!!!!!!!!!!!!!!!!!