Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

Дан одномерный массив, который содержит не более 40 целых чисел. Найти минимальный элемент и поменять его местами с тем элементом, который стоит по

10-11 класс

середине массива

Zezamif 11 авг. 2014 г., 15:15:16 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Nats77ru
11 авг. 2014 г., 16:56:01 (9 лет назад)

a = []
n = 2 * Random.rand(19) + 1
n.times {a<<Random.rand(50)}
p a

min_i = a.index(a.min())
middle_i = n/2

t = a[min_i]
a[min_i] = a[middle_i]
a[middle_i] = t
p a


+ 0 -
гимназистка
11 авг. 2014 г., 18:03:36 (9 лет назад)

Комментарий удален

+ 0 -
Grogrtjhyrtdh
11 авг. 2014 г., 19:28:18 (9 лет назад)

Комментарий удален

+ 0 -
Katya1729
11 авг. 2014 г., 21:42:02 (9 лет назад)

pascal \ turbo pascal

Ответить

Другие вопросы из категории

помогите составить таблицу
Объясните! плис!

Имеется книга объемом в 640 Кб. Одна страница книги содержит 32 строки по 64 символа в каждой. Сколько страниц содержится в книге?

помогите пацантре !!! делать в Excel VBA

1) Ввести массив данных A(n);A(5)
2) Найти сумму нечётных элементов массива . (S)
3) Все чётные элементы массива разделить на S
4) Ввести преобразованный массив

Читайте также

Паскаль помогите пжл!!!!!! Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива,

расположенных между максимальным и минимальным элементами.

Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами

ну или исправьте мое пжл

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.

Дана строка , в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются В заданном формате дд- целое число из диапазона от 1 до

31, мм - целое число из диапазона от 1 до 12, а гг - целое число из диапазона от 1 до 2020 (если какая-то часть формата нарушена, то данная подстрока в качестве даты не рассматривается.) Заменить каждую дату сообщения на дату следующего дня. Написать программу на Паскале. Сроооооооооооооочнооо. Пооожалуйста.....

10-11 класс информатика ответов нет
У исполнителя Аккорд две команды, которым присвоены номера: 1. отними 1 2. умножь на 5 Выполняя первую из них, Аккорд отнимает от

числа на экране 1 , а выполняя вторую , умножая это число на 5

Запиши порядок команд в программе которая содержит не более 5 команд и переводит число 1 в число 99

В ответе указывайте лишь номера команд пробелы между цифрами не ставьте

Так для программы

умножь на 5

отними 1

отними 1

нужно написать 211 Эта программа преобразует например число 5 в число 23

Задача Pascal

Найти наименьшие элементы в каждом столбце матрицы Х(5,5) и переписать их в одномерных массив А.В массиве А вычислить сумму элементов,стоящих на четных местах и произведение элементов,стоящих на нечетных местах.Массив А,сумму и произведение вывести на экран



Вы находитесь на странице вопроса "Дан одномерный массив, который содержит не более 40 целых чисел. Найти минимальный элемент и поменять его местами с тем элементом, который стоит по", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.