.Заполнить массив нулями, кроме первого и последнего элементов, которые должны быть равны единице.

Знания

Информатика

1 ответ:

Ellenor [7]4 года назад

0 0

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

begin
var a:=ArrFill(ReadInteger('n='),0);
a[0]:=1; a[a.Length-1]:=1; a.Println;
end.

Пример
n= 10
1 0 0 0 0 0 0 0 0 1

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

А= 10001,01 В=001011,010 в двоичной системе. Выполните сложение и вычитание с этими числами А-В, А+В

Елена Гру [14]

А-В = 110
А+В = 11100,1

0 0

4 года назад

15 БАЛЛОВ!!!!РЕШЕНИЕ ОБЯЗАТЕЛЬНО!!!(Как собственно и ответ) На доске 10 x 10 стоит 4 ладей, никакие две из которых не бьют друг

васянедени

Ответ 450. Можно выбрать сначала 2 «свободных» столбца из 6-ти (6*5)/2 способами, а потом поставить на них двух ладей 6*5 способами. 15*30=450.

0 0

1 год назад

Паскаль: 42 - Массивы 1. Отметьте все правильные объявления массива в языке Паскаль. var A[1..20] of integer; var A: array [1...

Starfer [1K]

1) 2 3
2) 2 4
3) 24
4)3
5)5

0 0

4 года назад

Информатика 1) 150 Кб- ?бит- ?Мб2)3 Мб - ? байт3) 5500 Мб - ? Гб - ?КбСрочно!!!! Даю 15 балов

Владимир2222

1)150000б. 0.15мб
2)3е+6 байт
3)5.5 гб. 5500000кб

0 0

4 года назад

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

Информатика массив найти кол во элементов <10

nadezh888 [98]

Var
m: array [1 .. 16] of integer;
i,countMin: integer;
begin
 for i := 1 to 16 do
 begin
 randomize;
 m[i] := random(100);
 if(m[i] <10) then
 countMin:=countMin+1;
 end;
 writeln('Исходный массив');
 for i := 1 to 16 do
 writeln('m[', i, ']=', m[i], ' ');
 writeln("Количество элементов <10",countMin);
 readln;
 end.

0 0

3 года назад