Написать фрагмент программы, выводящей на экран номера отрицательных элементов массива

Знания

Информатика

1 ответ:

Japanessa4 года назад

0 0

Const n=10;
Var a,b:array[1..n] of integer;
i:integer;
Begin
Randomize;
For i:=1 to n do
begin
A[i]:=Random(20)-10;
Write(a[i],' ');
end;
Writeln;
Writeln('Отрицательные элементы массива: ');
For i:=1 to n do
Begin
If A[i]<0 then
Begin
b[i]:=a[i];
Write(b[i],' ');
end;
end;
end.

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

Найти все такие простые числа p и q в первой тысяче натурального ряда, для которых выполняется равенство: p – q = 4.

SERGEY 86

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
var (p,q,s):=(1,2,0);
var k:=0;
Write('(1,5) ');
for var i:=3 to 1000 do begin
 var (flag,j,r):=(True,2,Round(Sqrt(i)));
 while flag and (j<=r) do
 if i mod j = 0 then flag:=false
 else j+=1;
 if flag then begin
 (p,q,s):=(q,s,i);
 if q-p=4 then Write('(',p,',',q,') ')
 else
 if s-p=4 then Write('(',p,',',s,') ')
 end
 end
end.

Результат
(1,5) (3,7) (7,11) (13,17) (19,23) (37,41) (43,47) (67,71) (79,83) (97,101) (103,107) (109,113) (127,131) (163,167) (193,197) (223,227) (229,233) (277,281) (307,311) (313,317) (349,353) (379,383) (397,401) (439,443) (457,461) (463,467) (487,491) (499,503) (613,617) (643,647) (673,677) (739,743) (757,761) (769,773) (823,827) (853,857) (859,863) (877,881) (883,887) (907,911) (937,941) (967,971)

0 0

4 года назад

Помогите, пожалуйста, решить олимпиадную задачу (9кл). Олимиада уже прошла, но хочется знать решение. Программа на Паскале. Зара

elena-shv

Я буду думать, что сочетание - набор нулей и единиц, в котором на i-м месте стоит 0, если i-й буквы нет в сочетании, и 1, если она есть. Тогда, например, (0111) соответствует bcd. Общее число чисел по условию N, число единиц равно K. Этот список упорядочен по убыванию, и нам необходимо найти M-е число в этом списке.
Всего число способов выбрать K элементов из N равно C_N^K ("цэ из N по K").
Поймем, например, надо ли брать 1-й элемент. Всего сочетаний, где первый элемент взят: C_(N-1)^(K-1) {в самом деле, в этом случае осталось выбрать K-1 из оставшихся N-1}; не взят: C_(N-1)^K. Учитывая, что те, в которые первый элемент входит, идут перед теми, в которые он не входит, решаем: если M > C_(N-1)^(K-1), 1-й элемент не берём, иначе берём.
Дальше если 1-й взяли, M оставляем таким же, если нет - уменьшаем на C_(N-1)^(K-1).
Процесс повторяем, пока не найдем все буквы.
Осталось понять, как считать C_N^K. Исходя из рассуждений выше, C_N^K = C_(N-1)^(K-1) + C_(N-1)^K. Кроме того, C_N^0 = 1 для всех N, C_N^K = 0 при K < 0 или K > N. Пользуясь этим, можно найти все C_N^K. Не забываем про длинную арифметику: C_N^K может не влезать в обычные типы данных. Я буду писать на PascalABC.NET, там длинная арифметика есть - тип BigInteger, если нет - легко найти, как это писать. (Update: в данном случае всё влезет в longint - биномиальные коэффициенты не превысят 10 миллионов с небольшим). 
Итак, вот и искомый код:
begin
var N, K: integer;
read(N, K);
var M := ReadString().ToBigInteger();
var C: array[,] of BigInteger := new BigInteger[N, K];
for var j := 1 to K - 1 do
C[0, j] := 0;
for var i := 0 to N - 1 do
C[i, 0] := 1;
for var i := 1 to N - 1 do
for var j := 1 to K - 1 do
C[i, j] := C[i - 1, j] + C[i - 1, j - 1];
var possible := 'a';
while K > 0 do
begin
if M <= C[N - 1, K - 1] then
begin
write(possible);
dec(K);
end
else
M := M - C[N - 1, K - 1];
dec(N);
inc(possible);
end;
end.

Без BigInteger:
begin
var N, K: integer;
var M: longint;
read(N, K, M);
var C: array[,] of longint := new longint[N, K];
for var j := 1 to K - 1 do
C[0, j] := 0;
for var i := 0 to N - 1 do
C[i, 0] := 1;
for var i := 1 to N - 1 do
for var j := 1 to K - 1 do
C[i, j] := C[i - 1, j] + C[i - 1, j - 1];
var possible := 'a';
while K > 0 do
begin
if M <= C[N - 1, K - 1] then
begin
write(possible);
dec(K);
end
else
M := M - C[N - 1, K - 1];
dec(N);
inc(possible);
end;
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Помогите посторить таблицу истинности.

Xaveriy

Таблица истинности продемонстрирована в прилагаемом изображении.

0 0

4 года назад

1. Выберите в данном списке устройства ввода компьютера: (Несколько правильных ответов) а) принтер б) монитор с) клавиатура д) м

Светочкин

1) с,д,ж,з.
2) б.
3) Не знаю :)
4) с.
5) б.
6) а.
7) с.
8) б.
9) Чтобы не соврать, тоже не знаю :)

0 0

4 года назад

1. Дискеты, распространённые в конце 90-х годов имели объем 1440 Кбайт и весили 20 г. Рассчитайте, сколько будет весить набор та

Chernikova

1 Тб = 1024 Гб = 1048576 Мб
Дискета 1440 Кбайт = 1,4 Мб
1048576 Мб / 1,4 Мб = 748983 дискеты нужно
748983 * 20 грамм = 14979660 грамм весят эти дискеты
14979660 гр / 1000 = 14980 кг / 1000 = 14,98 тонн
приблизительно 15 тонн

0 0

4 года назад