Задан массив из случайных чисел из ста элементов.Найти минимальный элемент массива.Составить блок-схему.
5-9 класс
|
var
m: array[1..100] of integer;
x,min:integer;
begin
randomize;
for x:=1 to 100 do
m[x]:=random(20);
for x:=1 to 100 do
write(m[x]:5);
writeln;
min:=m[1];
for x:=2 to 100 do
if m[x] < min then
min:=m[x];
writeln('Минимум = ', min);
end.
Другие вопросы из категории
кошельке рублевых монет?
15.В корзине лежат белые и черные шары. Белых четыре штуки. Сообщение о том, что достали белый шар, несет 3 бита информации. Сколько всего шаров в корзине?
а) линза
б) фотобарабан
в) источник света
г) кулер
Вывести на экран введенные b и х, и результат Y в одной строке
Y=… b=… х=…
Читайте также
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
его индекс.
5) Найти максимальные элементы среди положительных элементов массива 6) Найти максимальные элементы среди отрицательных элементов массива
7) Определить количество максимальных элементов массива
P.S Ребят, все в паскале...заранее спасибо=*
различны). Найти минимальный элемент численного массива и его порядковый номер.
1-й равен значению текущего индекса, увеличенному на 3; 2-й равен квадрату предыдущего индекса; 3-й равен сумме двух предыдущих элементов. 2 Задание : сформируйте массив, содержащий 15 элементов ,с помощью датчику случайных чисел. Получите новый массив,каждый элемент которого равен сумме соответствующего элемента исходного массива и его индекса. В полученном массиве удвойте элементы,которые меньше заданного с клавиатуры числа А,и найдите их сумму . Выведите на экран исходные и полученные результаты .
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.