Дан массив 50 чисел. от 0 до 50. нужно написать программу, чтобы пользователь вводил 5 любых цифр от 0 до 50 и программа находила самое минимальное число из пяти. также провести операция с 26 любыми цифрами. язык — паскаль.
Заполните массив дальше от 1 до последнего, если значение элемента меньше минимального, то минимальный равен элементу. все только минимальной сначала 50 приравнять
Const m=10; n=6; var a:array[1..m,1..n] of integer; i,j,maxr:integer; p,maxp:longint; begin Randomize; Writeln('Исходный массив'); maxp:=0; for i:=1 to m do begin p:=1; for j:=1 to n do begin a[i,j]:=Random(99)+1; { интервал [1..99] } Write(a[i,j]:3); p:=p*a[i,j] end; if maxp<p then begin maxp:=p; maxr:=i end; Writeln end; for i:=1 to m do for j:=1 to n do a[i,j]:=a[maxr,j]; Writeln('Сформированный массив'); for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:3); Writeln end end.
Я позволил себе немного изменить Ваш код и сделать его немного более читаемым. Так же, мне не совсем было понятно, зачем Вы сделали главную функцию, которая лишь вызывает еще одну. Поэтому я убрал промежуточную и сделал вызов по кнопке самой главной функции. Далее, принцип работы: вводим цифры/буквы в одно поле и в другое. Нажимаем кнопку "вычислить". Функции забивают эти данные в массивы и далее сверяют их. Должен признать, мне очень понравилась Ваша реализация. Как работает вывод: объединение - выводит все неповторяющиеся элементы двух массивов. Пересечение - выводит элементы, которые встречались в каждом массиве. Независимо от того, сколько раз. Эта Ваша заслуга. Пробел - равноценный участник работы. Это символ. Поэтому если Вы введете в два поля сколько угодно пробелов, а потом некие цифры, то в поле пересечение будет пробел, запятая и остальные числа. Если введете лишь в одном поле пробел, то он будет лишь в поле объединение. Как я ни старался, достичь двух запятых после моей небольшой корректировки у меня не вышло. З.Ы.: возможно при сохранении файл как html и последующем открывании у Вас отобразятся "кракозябры" меня простить за это, т.к. редактировал его в VS. Просто измените кодировку на Windows-1251 в браузере.
дальше от 1 до последнего, если значение элемента меньше минимального, то минимальный равен элементу.
все
только минимальной сначала 50 приравнять