задан одномерный массив с 10 эллементами. составить программу для поиска индексов минимального и максимального эллемента массива.
10-11 класс
|
var
c: Array[0..9] of Integer;
Max, Min: Integer;
IndMx, IndMn, I: Integer;
begin
for I:=0 to 9 do
c[I] = Random(280) - 20;
for I:=0 to 9 do begin
if Max < c[I] then begin
Max:=c[I];
IndMx:=I;
end
else if Min > c[I] then begin
Min:=c[I];
IndMx:=I;
end;
end;
end.
Другие вопросы из категории
программу-модель анализа пожарного датчика в помещении, которая выводит
сообщение «Пожароопасная ситуация», если температура в комнате превысила 60
град. С
2.Написать
программу, которая из двух вводимых Вами чисел печатает заключение о том, какое
число больше.
y = 2 х + с ,если x>0
y = 4x^2 - c ,если x<=0
Вот нам повезло, — сказал Дима по дороге. — Эта штука из чистой меди, да и весит килограммов тридцать.
Какая там медь? — возразил Боря. — Это ржавое железо. Но ты не унывай. В нем сто килограммов будет.
Да, это явно не медь, — вмешался Костя, — а весу пятьдесят килограммов, я думаю, наберется.
Каждый из ребят оказался прав только в одном из своих предположений.
что Петя записался на приём в 11:30?
у:=х+5
х:=у
у:=х+у
вывод у
переменная у приняла следующее значения (10).выведите число,которое являлось значением переменной х до начала работы алгоритма.
Читайте также
2. Составить программу для упорядоченное двух элементов по убыванию.
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива
треугольник, то является ли он равносторонним? 2)Дан одномерный массив. Найти количество смен знака между соседними элементами массива. Программа -Паскаль.