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

Задан массив натуральных чисел размером 30 элементов.элементы массива могут принимать значения от 1 до 1000.напишите программу в паскале нахождения и вывода на экран суммы элементов самой длинной последовательности подряд идущих нечетных элементов массива.если такой последовательности не существует, то программа должна вывести об этом сообщение.если таких последовательностей несколько, то суммировать можно элементы любой из них.входные данные: program rabota_s_massivom; const n=30; var m: array[1..n] of integer; i,k,s,kmax,reserve: integer; begin for i: =1 to n do readln(m[i]); end.

👇
Ответ:
varzhyv
varzhyv
26.09.2021
Проверено, работает на Паскаль АВС:

Program rabota_s_massivom;
uses crt;
label metka;
const N=30;
var M: array[1..N] of integer;
i,k,s,kmax,reserve:integer;
begin
  for i:=1 to N do
    begin
      write('Введите ',i,'-й элемент: '); readln(M[i]);
    end;
  writeln('Массив:');
  for i:=1 to N do
    begin
      write(M[i],' ');
    end;
  k:=1; {Число элементов в текущей последовательности. Изначально считаем, что последовательность состоит из одного (первого) элемента}
{Ищем первый нечётный элемент:}
  repeat
    reserve:=reserve+1;
  until (m[reserve] mod 2 = 1) or (reserve = 30);
  writeln(reserve);
  if (m[reserve] mod 2 = 0) and (reserve = 30) then
  begin
    writeln('Все числа чётные. Искомая последовательность не существует');
    goto metka;
  end;
  s:=M[reserve]; {Сумма элементов текущей последовательности пока что равна первому нечётному элементу}
  kmax:=0; {Наибольшая длина последовательности}
  for i:=reserve+1 to n do {Перебираем все элементы, начиная с первого нечётного}
    begin
      if (m[i] mod 2 = 1)
        then {Если текущее число всё ещё нечетно}
          begin
            s:=s+m[i]; {Увеличиваем сумму последовательности}
            k:=k+1 {Увеличиваем счётчик длины последовательности}
          end
        else {Если встретилось четное число}
          begin
            if k>kmax then {Проверяем, не является ли полученная последовательность длиннее нашего максимума}
              begin {Если да:}
                kmax:=k; {Запоминаем новую длину последовательности}
                reserve:=s {Запоминаем сумму её элементов}
              end;
            k:=0; {Устанавливаем длину новой последовательности равной 0}
            s:=0  {Сумма элементов этой последовательности тоже пока что = 0}
          end;
    end;
  if k>kmax then  {Если самая длинная последовательность находится в конце массива, проверим ещё раз текущий максимум}
    begin
      kmax:=k;
      reserve:=s
    end;
  writeln('самая длинная последовательность нечётных чисел состоит из ',kmax,' элементов');
  writeln('и сумма этой последовательности равна ',reserve);
metka: end.
4,6(52 оценок)
Ответ:
Dufrenb
Dufrenb
26.09.2021
Program rabota_s_massivom;
const  
  N = 10;
var
  M : array[1..N] of integer; 
  i, max, nowMax, maxIndex, index, summ : integer;
begin 
  for i := 1 to N do   
    readln(M[i]); 
  for i := 1 to N do 
  begin   
    if M[i] mod 2 > 0 then
    begin
      if nowMax = 0 then
        index := i;
      nowMax := nowMax + 1;
      if (i = N) and (nowMax > max) then
      begin
        max := nowMax;
        maxIndex := index;
      end;
    end
    else
      if nowMax > max then
      begin
        max := nowMax;
        maxIndex := index;
        nowMax := 0;
      end;
  end;
  if max = 0 then
    writeln('Не существует')
  else
  begin
    summ := 0;
    for i := maxIndex to maxIndex + max - 1 do
      summ := summ + M[i];
    writeln('Сумма: ', summ);
  end;
end.

Как-то так
4,7(62 оценок)
Открыть все ответы
Ответ:
Alexandr2K17
Alexandr2K17
26.09.2021
Var
  s: string;
  i, j, n: integer;
  c: char;
  flag: boolean;

begin
  Write('Введите произвольное число: '); Readln(s);
  flag := false;
  n := length(s);
  i := 1;
  while (i <= n) and (not flag) do
  begin
    c := s[i];
    j := i + 1;
    while (j <= n) and (not flag) do
      if s[j] = c then flag := true else j := j + 1;
    if (not flag) then i := i + 1
  end;
  if flag then Writeln('Символ "', c, '" встречается больше одного раза')
  else Writeln('Все символы уникальны')
end.

Тестовое решение:
Введите произвольное число: 16379068
Символ "6" встречается больше одного раза
4,4(17 оценок)
Ответ:
gdaniiiurik123
gdaniiiurik123
26.09.2021
1.Некоторая часть окружающего мира, воспринимаемая человеком как единое целое, называется …
а) предметом  б) объектомв) модельюг) системой
2. Основной характеристикой объекта является:а) средаб) имяв) параметрг) действие3. Укажите отношение для пары «процессор и системный блок»:
а) является элементом множестваб) входит в составв) является разновидностьюг) является причиной4. Информационной моделью части земной поверхности является:а) глобус Землиб) план домав) карта местностиг) схема метро5.Какая модель реализуется средствами программной среды?а) информационная вербальная модельб) информационная некомпьютерная модельв) информационная компьютерная модельг) материальная компьютерная модель6. В информационной модели автомобиля в описании  «По дороге,  как ветер, промчался лимузин»  отражается его:а) размерб) цветв) скоростьг) форма7. Составить в табличной форме информационную модель элементов системы «классная комната».II вариант1. Целое, состоящее из объектов взаимосвязанных между собой?а) модельб) структурав) системаг) совокупность2. К признакам объекта не относится:а) цветб) размерв) формаг) материал3. Укажите отношение для пары "графический редактор и MS Paint":
а) является элементом множестваб) входит в составв) является разновидностьюг) является причиной4. При создании игрушечного корабля для ребёнка трёх лет существенным является:а) внешний видб) размерв) точностьг) цветд) материал5. Выберите, что можно моделировать.а) объектыб) явленияв) процессыг) поведениед) все выше перечисленное6. В информационной модели компьютера, представленной в виде схемы, отражается его:а) весб) цветв) формаг) структурад) размер7. Составить в табличной форме информационную модель элементов системы «садовый участок».III вариант1. Аналог оригинала, отражающий некоторые его характеристики,  называется…а) предметом б) объектомв) модельюг) системой
2. К величинам объекта не относится:а) весб) размерв) формаг) возраст3. Укажите отношение для пары «василёк и полевые цветы»:
а) является элементом множества;б) входит в состав;в) является разновидностью;г) является причиной.4. В информационной модели жилого дома, представленной в виде чертежа, отражается его:а) структураб) цветв) стоимостьг) надёжностьд) удобство5. Какую модель нельзя потрогать или увидеть воочию, т.к. она не имеет материальной основы, а строится только на информации?а) материальнаяб) информационнаяв) физическаяг) логическая6. Модель человека в виде детской куклы создана с целью:а) изученияб) познанияв) игрыг) рекламыд) продажи7. Составить в табличной форме информационную а) средаб) действиев) состояниег) процесс3. Укажите отношение для пары "взрыв и пожар":
4,7(96 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ