В Паскале.Создайте программу нахождения и вывода в файл максимального и минимального значения элементов числового массива и их порядковые номера в этом массиве.Программа формирует одномерный массив случайным образом и выводит е...
В Паскале.Создайте программу нахождения и вывода в файл максимального и минимального значения элементов числового массива и их порядковые номера в этом массиве.Программа формирует одномерный массив случайным образом и выводит его в виде таблицы в файл output.txt
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы