Дан массив, заполненный значениями скоростей разных марок автомобилей. Определить 2 самых быстрых автомобиля (2 самых медленных).
5-9 класс
|
Program Pr1;
uses crt;
const n=100;
var mas:array[1..n] of integer;
var g,i,h:integer;
Begin
clrscr;
for i:=1 to n do begin
writeln('введите скорость ',i,' -ого автомобиля');
readln(mas[i]);
end;
for g:=1 to n-1 do
for i:=1 to n-g do if mas[i]<mas[i+1] then begin
h:=mas[i];
mas[i]:=mas[i+1];
mas[i+1]:=h;
end;
for i:=1 to 2 do writeln(mas[i]); {максимальные скорости}
for i:=n-1 to n do writeln(mas[i]); {минимальные скорости}
end.
Другие вопросы из категории
Правила выполнения операций и порядок действий соответствуют правилам арифметики. Определите значение переменной a после выполнения алгоритма:
а := 2 b := 4b := a/2*b a := 2*а + 3*b
В ответе укажите одно целое число — значение переменной a.
Читайте также
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.