помогите!!! Дан массив из n случайных чисел (числа вводятся с клавиатуры).Поменять местами максимальные и минемальные элементы массива
5-9 класс
|
Паскаль?
const n=<требуемое число элементов> ;
var a:array [1..n] of integer;
i,i_max,i_min: byte; max,min,x:integer;
begin
writeln(' Введите элементы массива через пробел');
for i:=1 to n do
read(a[i]);
max:=0; min:=1000;
i_max:=0; i_min:=0;
for i:=1 to n do
begin
if a[i]>max then begin max:=a[i]; i_max:=i; end;
if a[i]<min then begin min:=a[i]; i_min:=i; end;
end;
x:=max;
a[i_max]:=min;
a[i_min]:=x;
for i:=1 to n do
write(a[i],' ');
readln;
end.
Другие вопросы из категории
1)5; 2)16; 3)31; 4)32
а)температура человека;
б)скорость автомашины;
в)площадь страны;
г)название дня недели.
информационный вес одного символа равен c1= 8 битам количество символов в сообщениии К=V/c1=480000/8=60000 символов на одной странице 48 символов. количество страниц s =60000 символов /48 символов.=1250
Читайте также
Дан массив из 10 целых чисел,от -20 до 20 .
Напишите программу,заменяющую первый отрицательный элемент массива нулем.
Помогите пожалуйста решить!
таким образом, что производится перестановка 6 и 16 элементов массива
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
положительных и отрицательных элементов. Найти max и min из положительных и поменять местами.
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы