Vishenka220
11.12.2021 03:43

ДАН ЛИНЕЙНЫЙ МАССИВ А РАЗМЕРНОСТЬЮ 5.Вывести массив и сумму всех чисел массива через входные и выходные файлы.паскаль

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
2005Dasha0305
10.01.2022 21:59

Объяснение:

Using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

namespace ConsoleApplication4

{

   class Program

   {

       // Дан массив С1, С2, …, С24. В массиве есть два элемента равные 0. Заменить все элементы, стоящие между ними, на единицы

       static void Main(string[] args)

       {

           const int n = 24; // Размер массива

           int[] С = new int[n]; // Создали массив

           for (int i = 0; i < n; i++) // Вводим элементы массива

           {

               С[i] = int.Parse(Console.ReadLine());

           }

           bool check = false; // Индикатор замены (пока что выключен)

           for (int i = 0; i < n; i++) // Цикл для выполнения замены

           {

               if (С[i] == 0) // Если проверемый элемент нулевой, то переулючить индикатор замены и закончить текущую иттерацию

               {

                   check = !check;

                   continue;

               }

               if (check == true) // Если индикатор замены включен, то заменяем текущий элемент

                   С[i] = 1;

           }

           for (int i = 0; i < n; i++) // Выводим элементы массива

           {

               Console.WriteLine(С[i]);

           }

           Console.ReadKey(); // Ждем нажатия клавиши

       }

   }

}

Подробнее - на -

0,0(0 оценок)
Ответ:
dimalol3373
15.12.2021 17:18
Var
  s,sd,sm,sy:string;
  d,m,y,err:integer;
begin
  Write('Введите текущую дату в формате дд/мм/ или дд.мм.: ');
  Readln(s);
  if Length(s)<>10 then Writeln('Неверный ввод')
  else begin
    sd:=s[1]+s[2]; Val(sd,d,err);
    sm:=s[4]+s[5]; Val(sm,m,err);
    sy:=Copy(s,7,4); Val(sy,y,err);
    if err>0 then Writeln('Неверный ввод')
    else begin
      if d<28 then d:=d+1
      else begin
        case m of
        1,3,5,7,8,10,12:
          if d<31 then d:=d+1
          else begin d:=1; m:=m+1 end;
        2:
          if (y mod 4)=0 then
            if d=28 then d:=29
            else begin d:=1; m:=3 end
          else begin d:=1; m:=3 end;
        else
          if d<30 then d:=d+1
          else begin d:=1; m:=m+1 end
        end
      end;
      if m>12 then begin m:=1; y:=y+1 end;
      Str(d,sd); if Length(sd)=1 then sd:='0'+sd;
      Str(m,sm); if Length(sm)=1 then sm:='0'+sm;
      Str(y,sy);
      s:=sd+'.'+sm+'.'+sy;
      Writeln('Завтра будет '+s)
    end
  end
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота