Дона строка.определить в ней длину самого короткого и самого длинного слова? (паскаль)

👇

Ответ:

karolina000000

13.04.2021

// PascalABC.NET 3.3

begin
var s:=ReadlnString;
var a:=s.ToWords.Select(w->length(w));
writeln('Длина самого короткого слова: ',a.Min,
', длина самого длинного слова: ',a.Max);
end.

Пример:
Определить в ней длину самого короткого и самого длинного слова
Длина самого короткого слова: 1, длина самого длинного слова: 10

4,8(87 оценок)

Открыть все ответы

Ответ:

Beknazarova02

13.04.2021

4) 0 1 2 3 4 5 4 3 2 1 0

Объяснение:

Заполнение массива:

для i от 0 до 10 выполнить a[i] = i

i = 0 a[0] = 0

i = 1 a[1] = 1

i = 2 a[2] = 2

Т.е. значение элемента массива равно индексу элемента.

Первоначальный массив выглядит так: 0 1 2 3 4 5 6 7 8 9 10

Изменение массива:

для i от 0 до 10 выполнить

Действия в цикле:

1) a[10-i] = a[i]

2) a[i] = a[10-i]

i = 0

Действия в цикле:

1) a[10-0] = a[0] (a[i] значение элемента берём из первоначального массива) a[10] = 0

2) a[0] = a[10-0] a[0] = a[10] a[0] = 0

i = 1

Действия в цикле:

1) a[10-1] = a[1] (a[i] значение элемента берём из первоначального массива) a[9] = 1

2) a[1] = a[10-1] a[1] = a[9] a[1] = 1

i = 2

Действия в цикле:

1) a[10-2] = a[2] (a[i] значение элемента берём из первоначального массива) a[8] = 2

2) a[2] = a[10-2] a[2] = a[8] a[2] = 2

i = 3

Действия в цикле:

1) a[10-3] = a[3] (a[i] значение элемента берём из первоначального массива) a[7] = 3

2) a[3] = a[10-3] a[3] = a[7] a[3] = 3

i = 4

Действия в цикле:

1) a[10-4] = a[4] (a[i] значение элемента берём из первоначального массива) a[6] = 4

2) a[4] = a[10-4] a[4] = a[6] a[4] = 4

i = 5

Действия в цикле:

1) a[10-5] = a[5] (a[i] значение элемента берём из первоначального массива) a[5] = 5

2) a[5] = a[10-5] a[5] = a[5] a[5] = 5

Промежуточный массив выглядит так: 0 1 2 3 4 5 4 3 2 1 0

i = 6

Действия в цикле:

1) a[10-6] = a[6] (a[i] значение элемента берём из промежуточного массива) a[4] = 4

2) a[6] = a[10-6] a[6] = a[4] a[6] = 4

i = 7

Действия в цикле:

1) a[10-7] = a[7] (a[i] значение элемента берём из промежуточного массива) a[3] = 3

2) a[7] = a[10-7] a[7] = a[3] a[7] = 3

i = 8

Действия в цикле:

1) a[10-8] = a[8] (a[i] значение элемента берём из промежуточного массива) a[2] = 2

2) a[8] = a[10-8] a[8] = a[2] a[8] = 2

i = 9

Действия в цикле:

1) a[10-9] = a[9] (a[i] значение элемента берём из промежуточного массива) a[1] = 1

2) a[9] = a[10-9] a[9] = a[1] a[9] = 1

i = 10

Действия в цикле:

1) a[10-10] = a[10] (a[i] значение элемента берём из промежуточного массива) a[0] = 0

2) a[10] = a[10-10] a[10] = a[0] a[10] = 0

Окончательный массив выглядит так: 0 1 2 3 4 5 4 3 2 1 0

4,5(62 оценок)

Ответ:

dashakoshelevap06xlg

13.04.2021

Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace 1
{
class Program
{
static void Main(string[] args)
{
bool Mistake = false;
int N = 0;

do
{
Console.Write("Введите количество слагаемых: ");

try
{
N = Convert.ToInt32(Console.ReadLine());
Mistake = false;

}

catch (FormatException)
{
Mistake = true;

Console.Clear();
Console.WriteLine("Неверный формат ввода! Повторите попытку!");
Console.WriteLine();
}
}

while (Mistake == true);

Sum(N);
}

static void Sum(int N)
{
double[] Elements = new double[N];
double Result = 0;

for (int i = 0; i < N; i++)
{
Console.WriteLine();
Console.Write("Введите " + (i + 1) + " число: ");

try
{
Elements[i] = Convert.ToDouble(Console.ReadLine());
}

catch (FormatException)
{
Console.WriteLine("Неверный формат ввода!");
}
}

for (int j = 0; j < N; j++)
{
Result += Elements[j];
}

Console.WriteLine();
Console.Write("Сумма = " + Result);
Console.ReadKey();
}
}
}
Напиши программу, которая выводит сумму n чисел, введенных пользователем. число n должно так же опре