найти минимальный элемент в массиве А 10,заполненном случайным образом.
5-9 класс
|
Pascal
________________________
uses crt;
var
min, i , n : integer;
m: array [1..10] of integer;
begin
randomize;
min:= 99;
n:= 10;
for i:=1 to n do
m[i]:= random (30);
for i:=1 to n do
if m[i]<min then min:= m[i];
for i:=1 to n do
write (m[i],' ');
writeln;
writeln (min);
readkey;
end.
Другие вопросы из категории
Используется только одна подпрограмма-функция паскаль.
табло , чтобы с его помощью можно было бы передать 15 разных сигналов?
Читайте также
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
его индекс.
5) Найти максимальные элементы среди положительных элементов массива 6) Найти максимальные элементы среди отрицательных элементов массива
7) Определить количество максимальных элементов массива
P.S Ребят, все в паскале...заранее спасибо=*
различны). Найти минимальный элемент численного массива и его порядковый номер.
2. Дана фраза. Определить, сколько в ней предложений.