Pascal . прошу, ! составить программу, которая в каждом столбце двумерного массива случайных чисел находит наименьший элемент и записывает его индекс в одномерный массив.

141

473

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

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

DzhamalHAS

Информатика

4,7(73 оценок)

Const n=10; m=8; var a: array[1..n,1..m]of integer; b: array[1..m]of integer; i,j,min: integer; begin for i: =1 to n do begin writeln; for j: =1 to m do begin a[i,j]: =random(100); write(a[i,j]: 4); end; end; writeln; for j: =1 to m do begin min: =a[i,1]; for i: =1 to n do if a[i,j]< min then min: =a[i,j]; b[j]: =min; end; for i: =1 to m do write(b[i]: 4); end.

Zagadochnaya

Информатика

4,6(5 оценок)

по умолчанию delphi сохраняет новые проекты в папке c: \program files\borland\delphi7\projects, то если мы не будем выделять под него место сами, все файлы данного и всех будущих проектов будут свалены в кучу. поэтому сразу в начале работы над новым проектом командой меню file -» save all (или соответствующей кнопкой на главном окне) сохраним проект в специально для него созданную папку. создать её можно прямо в открывшемся окошке. проект в целом сохраняется в файле с именем project1. форма функционирует вместе с программой, описывающей её работу, так называемым модулем. если модулей в проекте несколько, для каждого из них delphi создаст отдельный файл, и предложит его сохранить под именем unit1, unit2 и т.д. и для файла проекта, и файлов модулей можно дать и своё, более осмысленное название. теперь выполните команду file -» close all. попробуйте открыть файл модуля командой модуль откроется вместе с нашей формой, мы сможем нормально работать, но кнопка запуска программы окажется неактивной. поэтому сначала нужно открывать файл проекта. для этого, кстати, есть специальная команда меню file -» open ctrl f11, и соответствующая кнопка, прямо над кнопкой запуска. теперь в окне выбора будет только один файл, файл проекта. при его открытии будет открыт и первый модуль и первая форма проекта. для нашего проекта этого достаточно. если в проекте несколько форм, их модули и формы открываем командой можно открывать модули других проектов, например, для копирования кода и т д.