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

276

479

Посмотреть ответы 2

Ответы на вопрос:

ganievadiyana

Информатика

4,8(87 оценок)

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.