Question

Впаскале.создайте программу нахождения и вывода в файл максимального и минимального значения элементов числового массива и их порядковые номера в этом массиве.программа формирует одномерный массив случайным образом и выводит его в виде таблицы в файл output.txt

Answer 1

Var    a: array [1..100] of integer; 
    n, i, j: integer;
    fout: text;
begin
    assign(fout, 'output.txt');
    rewrite(fout);
    n := 10; //n - длина массива
    for i := 1 to n do
        a[i] := random(100);
    for i := 1 to n do
        write(fout, a[i], ' ');
    writeln(fout);
    j := 1;
    for i := 2 to n do
        if a[i] > a[j] then
            j := i;
    writeln(fout, 'max = ', a[j], '  max_ind = ', j);
    j := 1;
    for i := 2 to n do
        if a[i] < a[j] then
            j := i;
    writeln(fout, 'min = ', a[j], '  min_ind = ', j);
    close(fout);
end.