сервис вопросов и ответовДан одномерный массив А размерности N.Поменять местами его минимальный и максимальный значения элементов.
10-11 класс|
|
Sofienko23
15 июня 2014 г., 4:38:19 (9 лет назад)
Liza132liza132
15 июня 2014 г., 6:16:54 (9 лет назад)
Dim i As Integer
Dim min As Integer
Dim max As Integer
Dim N As Integer
N = CInt(InputBox("Введите N"))
Dim A(N) As Integer
min = 0
max = 0
For i = 0 To N
If A(i) < A(min) Then min = i
If A(i) < A(max) Then max = i
Next
i = A(min)
A(min) = A(max)
A(max) = i
Ответить
Другие вопросы из категории
скорость передачи данных через модемное соединение равна 51200 бит/с. передача текстового файла через это соединение заняла 10 с, Определите, сколько
символов содержал переданный текст, если известно, что он был представлен в 16-битной кодировке Unicode?
Создайте класс Matematica, определите в нем виртуальную функцию-член matem(int x, int y), которая выводит на экран значения параметров. Создайте
производные классы Umn и Del с перегруженной функцией matem(int x, int y) для умножения и деления параметров соответственно.
банкир богатеев, набирая код на своём сейфе, каждую кнопку циферблата нажал то количество раз, какое значение написано на ней. циферблат содержит все
цифры от 1 до 9 . Сколько раз Богатеев нажимал на кнопки:9;45;50;10
Для того чтобы распознать двухмерную фигуру при работе с
редактором диаграмм и блок-схем Microsoft Office Visio 2007, нужно
Читайте также
Паскаль помогите пжл!!!!!! Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива,
расположенных между максимальным и минимальным элементами.
Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами
ну или исправьте мое пжл
program fgf;
var mas:array[1..100] of real;
max,min:real;
i,n,c,b:shortint;
p:real;
f1,g:text;
begin;
assign (f1, 'input.txt');
reset (f1);
readln (f1, n);
for i:=1 to N do read (mas[i]);
max:=mas[i];
for i:=2 to N do begin
if mas[i]>max then begin
max:=mas[i];
c:=i;
end;
end;
min:=mas[1];
for i:=2 to N do begin
if mas[i]<min then begin
max:=mas[i];
b:=i;
end;
end;
close(f1);
assign (g, 'output.txt');
rewrite (g);
p:=1;
if b<c then I:=b+1 and c-1
else for I:=c+1 to b-1 do p:=p*mas[i];
if (n<3) or (b+1=c) or (c+1=b) then writeln(g,'0.00') else write(p:3:3) ;
close (g);
end.
Дан одномерный массив A размерностью N(<=0). Значение массива ввести с клавиатуры, заполнить массив с помощью генератора случайных чисел. найти среднее
арифметическое и количество всех положительных элементов массива))
Помогите составить программу в Паскале, буду благодарна:)
Помогите пожалуйста, нужно сделать в паскале, в экселе, и блок-схему!
(задание номер 5 на фото)
Дан одномерный массив А размерностью 16. Определить максимальное значение среди нечетных элементов массива, и минимальное среди четных элементов массива. Получить сумму максимального и минимального значений элементов массива и преобразовать данный массив по принципу из значений нечетных элементов вычесть сумму, а к четным элементам прибавить сумму. Все первоначальные элементы массива вводятся с клавиатуры.
1.
Дан
одномерный массив а(n), в котором находится единственный элемент ,значение
которого принадлежит интервалу от 2 до 5. Найти где он находится , и
упорядочить по убыванию элементы, расположенные перед ним. Выдать на экран
номер элемента и упорядоченный массив.
Вы находитесь на странице вопроса "Дан одномерный массив А размерности N.Поменять местами его минимальный и максимальный значения элементов.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.