C(10) Определить наименьший элемент массива С и его номер, С<0
10-11 класс
|
Ребзя, помогите плиз
var
i,n,min:integer;
c:array[1..10]of integer;
begin
writeln('Массив C:');
n:=1;
for i:=1 to 10 do
begin
c[i]:=random(-10,10);
write(c[i],' ');
if i=1 then min:=c[1]
else
if c[i]<min then
begin
min:=c[i];
n:=i;
end;
end;
writeln;
writeln('min=',min,' n=',n);
end.
Другие вопросы из категории
Необходимо написать программу на JS, которая бы выводила две гиперссылки на некоторые сайты, а затем определяла бы время в секундах между щелчками мыши на эти самые гиперссылки и на какую именно гиперссылку кликнули в первый раз.
Заранее спасибо.
если можно объясните пошагово.
заранее спасибо!!)))
вывести сумму их модулей
рисунке изображена блок-схема. Какое значение будет присвоено переменной X
после выполнения алгоритма? решите
задачу, решение отразите в отчете
элементов ,которые находятся перед максимальным
Читайте также
массив (10)
ограничения С < 0
программу, которая определяет совпадают ли наибольший и наименьший элементы двух массивов A[1..n], B[1..n].
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
числа 7 и меньше 10. Вывести количество элементов массива и среднее арифметическое значение этих элементов, которых больше заданного числа 7 и меньше 10 на монитор