сервис вопросов и ответовДан одномерный массив А,состоящий из N различных элементов. Поменять местами наименьший и наибольший элемнты массива. Полученный массив вывести на
10-11 класс|
|
печать.
( в basice желательно)
Elizabeth126
14 дек. 2013 г., 20:49:07 (10 лет назад)
Maanvl1410
14 дек. 2013 г., 22:51:17 (10 лет назад)
var a:array [1..100] of integer;
n,i:byte;
m,b,c:byte;
begin
m:=1;
b:=1;
write('Введите n = ');readln(n);
for i:=1 to n do begin
readln(a[i]);
if a[i]<a[m] then m:=i;
if a[i]>a[b] then b:=i;
end;
c:=a[m];
a[m]:=a[b];
a[b]:=c;
write('Результат: ');
for i:=1 to n do
write(a[i],' ');
end.
П.С. как будет возможность набацаю на бейсике
Ответить
Другие вопросы из категории
папа поставил на скачивание файл и определил , что закачка займет 20 минут . когда файл папы был скачан на 20% , мама поставила на скачивание свой файл . ч
ерез 6 минут после мамы Коля поставил на скачивание свой файл . при скачивании двух файлов скорость скачивания каждого в 2 раза ниже первоначальной , при скачивании трех файлов скорость скачивания каждого в три раза ниже первоначальной , при скачивании одного - равна первоначальной . на сколько минут позже папы закончит закачку мама Коли , если объемы всех скачиваемых файлов равны ?
А)6
Б)8
В)12
Г)15
1. Ученый, имя которого связано с созданием лаборатории по разработке ЭВМ, названной МЭСМ (Малая электронная счетная машина); создатель первого
компьютера в континентальной Европе. 2. Под его руководством были разработаны: "Стрела", "Урал-1" 3. Он является одним из зачинателей теоретического и системного программирования, создателем Сибирской школы информатики. Его существенный вклад в становление информатики как новой отрасли науки и нового феномена общественной жизни широко признан в нашей стране и за рубежом. 4. Изобретатель гипертекста. 5. Изобретатель «мыши», но не только. 6. Автор проекта первой электронно-счетной машины 7. Изобретатель, впервые продемонстрировавший работу устройства под управлением перфокарт. 8. Изобретатель счетного устройства. В честь его назван язык программирования.
Помогите написать прогу:
Разработать алгоритм программы, которая проверяет, является ли введенный с клавиатуры массив убывающей последовательностью чисел.
Сколько секунд потребуется модему, передающему сообщение со скорость 28800 бит/сек, чтобы передать 100 страниц текста в 30 сток по 60 символов каждая, при
условии, что каждый символ кодируется одним байтом.
Напишите подробное решение.
Читайте также
Паскаль помогите пжл!!!!!! Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива,
расположенных между максимальным и минимальным элементами.
Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами
ну или исправьте мое пжл
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.
ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ ПОЖАЛУЙСТА.я пропустила тему. Дан одномерный массив А состоящий из 10
элементов.Вывести на экран исходную таблицу и резултат программы.
Найти произведения элементов массива А. удовлетворяющих условию:
c<=A[i]<=d.
ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ ПОЖАЛУЙСТА.я пропустила тему.ПО ПАСКАЛЬ.!!
Дан одномерный массив А состоящий из 10 элементов.Вывести на экран исходную таблицу и резултат программы.
Найти произведения элементов массива А. удовлетворяющих условию:
c<=A[i]<=d.
Дан одномерный массив целых чисел, заполненный
случайным образом числами из промежутка [-40, 30]. Массив данных хранится в
файле. Удалить из него все элементы, которые состоят из одинаковых цифр.
Результат записать в другой файл.
Дан одномерный
целочисленный массив А, состоящий из
N элементов,
N -
заданное натуральное число. Упорядочить элементы массива
по неубыванию. (программа +блок-схема)на языке QBasic
Вы находитесь на странице вопроса "Дан одномерный массив А,состоящий из N различных элементов. Поменять местами наименьший и наибольший элемнты массива. Полученный массив вывести на", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.