В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
egor535
egor535
22.09.2021 04:45 •  Информатика

Что такое табличный процессор?
2. Сферы применения табличных процессоров запуска программы Excel?
4. Составные элементы документа Excel?
5. Сколько строк и столбцов на рабочем листе?
6. Типы диапазонов?
7. Типы данных?
8. В чем отличие содержимого ячейки и его значения?
9. Что такое маркер заполнения?
10. Параметры форматирования ячейки?
11. Какие операции можно выполнять с выделенным диапазоном?
12. Категории функций?
13. Где отображается содержимое ячейки редактирования данных в ячейке?
15. Типы адресации?
16. Какой тип адресации программа использует по умолчанию?
17. В чем отличие относительного адреса от абсолютного?
18. Клавиша для преобразования адресов?
19. Операции с рабочими листами?
20. Какие форматы чисел существуют?
21. Типы выравниваний данных в ячейке?
22. Какое расширение имеет файл документа Excel?
23. Что такое фильтрация?
24. Типы фильтров?
25. Отличие автофильтра от расширенного фильтра?
26. Что такое сортировка?
27. Порядок сортировки
28. Что такое сводная таблица?
29. Поля сводной таблицы?
30. Типы диаграмм?
31. Параметры настройки диаграммы?
32. Что такое массив?
33. Виды массивов?
34. Что такое массив формул?
35. Что такое массив констант?
36. Клавиши для ввода формулы массива?
37. Изученные функции и их назначения
38. Что такое вложенная функция?
39. Как переходить из одной функции в другую?
40. Что обозначает точка с запятой в формулах?

Показать ответ
Ответ:
Виолетик5
Виолетик5
13.07.2020 16:55
Var s:string;
n,k,i:integer;
begin
for n:=1 to 2 do
 begin
 writeln('Введите строку ',n,':');
 readln(s);
 k:=0;
 for i:=1 to length(s) do
  begin
  case s[i] of
   '[': k:=k+1;
   ']': k:=k-1;
   end;
  end;
 if k=0 
 then writeln('В строке ',s,' количество [ и ] одинаково')
 else writeln('В строке ',s,' количество [ и ] не одинаково');
 end;
end.

Пример:
Введите строку 1:
c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c
В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково
Введите строку 2:
Просто [ пример ]] со [[ скобками
В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково
0,0(0 оценок)
Ответ:
илрлрле
илрлрле
17.05.2021 17:49
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var a:=ReadLines('m17.txt').JoinIntoString.ToIntegers;
  a.Println;
  var b:=a.Select((x,i)->Rec(x,i)).Where(x->x.Item1<0)
    .Select(x->x.Item2).ToArray;
  if b.Count<>2 then
    Writeln('Количество отрицательных элементов не равно двум')
  else begin
    a:=SeqFill(b[0],0).Concat(a.Skip(b[0]).Take(b[1]-b[0]+1))
      .Concat(SeqFill(a.Length-b[1]-1,0)).ToArray;
    a.Println
    end
end.

Тестовое решение:
23 14 7 15 0 13 -6 41 18 13 8 42 27 -11 3 19 10
0 0 0 0 0 0 -6 41 18 13 8 42 27 -11 0 0 0

Файл с исходными данными имеет имя m17.txt. Тестовый файл находится во вложении. Разбивка на строки сделана по 5 значений, но может быть совершенно произвольной. Также нет привязки именно к 17 числам, главное - чтобы отрицательных чисел было ровно два, иначе будет выдано сообщение о их неверном количестве.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота