Дан элемент из 30 элементов.заполнить случайными числами от -5 до 5. во второй массив записать все положительные числа.

Const     n = 30; var     a,b: array[1..n] of integer;     i,s,m: integer; begin randomize; write('a(',n,'): '); m: =0; for i: = 1 to n do       begin       a[i]: =random(11)-5;       write(' ',a[i]);       if a[i] > 0 then             begin             m: =m+1;             b[m]: =a[i];             end       end; writeln; write('b(',m,'): '); for i: = 1 to m do       write(' ',b[i]); readln; end.

Объяснение:

programm.top /pascal

Минимальный элемент массива

Главная  Pascal Алгоритмы  Алгоритмы поиска  Минимальный элемент массивапоискрекурсияlazarusНайти минимальный элемент массиваочень Если это упорядоченный массив, то достаточно вернуть первое или последнее значение, в зависимости от того, как отсортированы данные, от наименьшего к наибольшему или от наибольших к наименьшим. Это очень задача.В случае с неотсортированным массивом, задача поиска минимального значения элемента сводиться к полному обходу всех элементов и выбора из них -минимума.

Код программы для поиска минимального, по значению, элемента неупорядоченного массива

{$CODEPAGE UTF8} program Minimal; const arrayLength = 10; var inputArray : array [1..arrayLength] of integer; minimum, i: integer; begin randomize; writeln ('Исходный массив: '); {заполнение случайными числами} for i := 1 to arrayLength do begin inputArray[i] := random(100); write (inputArray[i]:4); end; writeln; {поиск минимального значения} {считаем что первый элемент и есть минимальный} minimum := inputArray[1]; for i := 2 to arrayLength do if minimum > inputArray[i] then {если минимум больше текущего} minimum := inputArray[i]; {присваиваем ему текущее значение} write('Минимальный элемент массива ', minimum); readln; end.