М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
DeadShotDS
DeadShotDS
30.06.2022 07:33 •  Информатика

Вмассиве a=(a1, а2, аn) удалить все подряд идущие отрицательные элементы, идущие вслед за минимальным элементом массива.(программа с использованием массива и цикла for)паскаль

👇
Ответ:
maha80
maha80
30.06.2022
Var
  a, b: array[1..110000] of integer;
  i, n, j, cnt, min: integer;
  fl: boolean; 
begin
  Readln(n);
  for i := 1 to n do
    Read(a[i]);
   min:= a[1];
   j:= 1;
  for i := 2 to n do
    if a[i] < min then 
    begin
      min:= a[i];
       j:= i;
    end;    
   fl := true;
   for i:= 1 to j do
   write(a[i], ' '); 
  for i:= j + 1 to n do
    begin
      if a[i] > 0 then fl := false;
      if (a[i] < 0)and(fl) then continue;
      write(a[i], ' ');    
    end; 
  end.
4,7(27 оценок)
Открыть все ответы
Ответ:
пиро3
пиро3
30.06.2022
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Матрица А ***');
  var a:=MatrRandom(4,7,-50,50); a.Println(4);
  Writeln('*** Матрица B ***');
  var b:=MatrRandom(4,7,-50,50); b.Println(4);
  Writeln(4*a.ColCount*'-');
  Writeln('*** Матрица А-B ***');
  for var i:=0 to 3 do begin
    for var j:=0 to 6 do Write(a[i,j]-b[i,j]:4);
    Writeln
    end;
end.

Пример
*** Матрица А ***
  11 -12 -37  22   3  -8  16
  -2  21  31   4  -1  13  20
  18 -42 -46 -17  19   8 -14
 -26 -32  -2  31 -26 -43 -31
*** Матрица B ***
  13 -14  12 -37   2 -12  34
  26  25 -47   2 -42   1 -43
  44  -6  -1  24  37  -9  -3
 -30   3 -29 -39 -11  -8 -14

*** Матрица А-B ***
  -2   2 -49  59   1   4 -18
 -28  -4  78   2  41  12  63
 -26 -36 -45 -41 -18  17 -11
   4 -35  27  70 -15 -35 -17
4,8(73 оценок)
Ответ:
Vikzza
Vikzza
30.06.2022

113 в 10 СС = 1110001 в 2 СС

113 в 10 СС = 305 в 6 СС

113 в 10 СС = 71 в 16 СС

Объяснение:

113 / 2 = 56 + остаток 1

56 / 2 = 28 + остаток 0

28 / 2 = 14 + остаток 0

14 / 2 = 7 + остаток 0

7 / 2 = 3 + остаток 1

3 / 2 = 1 + остаток 1

1 / 2 = 0 + остаток 1

записываем остатки снизу вверх

113 в 10 СС = 1110001 в 2 СС

113 / 6 = 18 + остаток 5

18 / 6 = 3 + остаток 0

3 / 6 = 0 + остаток 3

записываем остатки снизу вверх

113 в 10 СС = 305 в 6 СС

113 / 16 = 7 + остаток 1

7 / 16 = 0 + остаток 7

записываем остатки снизу вверх

113 в 10 СС = 71 в 16 СС

4,7(11 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ