Помогите написать программу на Borland Pascal

01.01.2001

Помогите написать программу на Borland Pascal
- Ввести произвольную размерность одномерного массива в интервале 1..10.
- Ввести данные (тип данных указан в вариантах) с клавиатуры в виде «Х=», где i – индекс элемента.
- После окончания ввода для контроля данных вывести на экран массив.
- Обработать данные в подпрограмме (тип подпрограммы и способ обработки указан в вариантах) и вывести результат.
- Ввод данных и вывод результатов на экран должны производиться в головной программе, все вычисления – в подпрограммах. Оформить подпрограммы в отдельном модуле. Подключить модуль к головной программе.
- Все символьные элементы считать вводимыми только в нижнем регистре.
- Если результатами вычислений являются вещественные числа, то выводить их с точностью до 1-го знака после точки.

Само задание:
Массив целых чисел. В функции найти в исходном массиве наименьший элемент, удалить его из массива (размерность итогового массива уменьшится на 1). Найденный элемент передать в головную программу в качестве возвращаемого значения функции.

  • var X : array [1..10] of Integer; i, Size : Byte;

    function FindMin : Integer;
    var i, min : Byte; Res : Integer;
    begin
    min := 1; for i := 2 to Size do if X[ i ] < X[min] then min := i;
    Res := X[min]; Dec(Size); for i := min to Size do X[ i ] := X[ i+1];
    FindMin := Res;
    end;

    begin
    Write('Введите размер массива от 1 до 10 : '); ReadLn(Size);
    if Not Size in [1..10] then begin WriteLn('Ошибка: значение от 1 до 10.'); Halt; end;
    WriteLn('Введите элементы массива: ');
    for i := 1 to Size do begin Write('X[', i, '] = '); ReadLn(X[ i ]); end;
    WriteLn('Минимальный элемент = ', FindMin);
    end.

  • С каких это пор чистая халява помощью называется? )
    Пишите что именно и где непонятно, будем тогда помогать.

Вас заинтересует