Дан массив целых чисел требуется удалить из него єлемент стоящий на месте номер b сдвинув все последуещие элементи влево паскаль

Знания

Информатика

1 ответ:

F4iTH4 года назад

0 0

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

begin
var a:=ReadArrInteger('Введите массив',ReadInteger('Введите длину массива'));
var b:=ReadInteger('b =') - 1;
a := a.where((v,i) -> i <> b).ToArray;
a.Println;
end.

Пример:
Введите длину массива 5
Введите массив 1 2 3 4 5
b = 4
1 2 3 5

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

Среди чисел от 1 до 100.Найдите все пары чисел для которых их сумма равняется произведению.Pascal

Мариша02

Из целых чисел такая пара только одна - 2 и 2.
А если программу писать, то так
var a, b: integer
BEGIN
for a=1 to 100 do
begin
    for b=1 to 100 do
    begin
        if a+b=a*b then write (a, b);
    end;
end;
END.
Если можно брать нецелые числа, то для любого х второе число равно x/(x-1)
Например, 3 и 3/2. 3 + 3/2 = 3*3/2 = 9/2

0 0

3 года назад

Пожайлуста помогите информатика 5 класс босова

Та самая

А) Комбинацию клавиш Shift +буква
б) Caps Lock

0 0

4 года назад

Задаются два разных по величине числа. Записать алгоритм определения, какое из этих чисел больше.

virKuzmich [2]

Var a,b,c:integer;
begin
write(' введите два различных числа');
read(a,b);
if a>b then c:=a else c:=b;
writeln('большее число =', c);
end.

0 0

1 год назад