Циклы с параметром. Задача 3 Задана последовательность из NN целых чисел. Необходимо найти порядковый номер числа с максимальным модулем. Если таких чисел несколько, вывести наибольший номер. Формат входных данных В первой строке входного файла записано число NN (1≤N≤1000)(1≤N≤1000 В следующий строке через пробел записаны NN целых чисел, по модулю не превосходящих 100000100000. Формат выходных данных В выходной файл вывести одно число — номер последнего из элементов с максимальным модулем. Примеры: Вход 5 1 -2 -8 0 8 Выход 5

Вот вариант на Паскале

var a, nn, i, max, maxi : integer;

BEGIN

read(nn); max := 0; maxi := 0;

for i := 1 to nn do begin

 read(a);

 if abs(a) >= abs(max) then begin

  max := a; maxi := i;

 end;

end;

write(maxi);

END.

1. Допустим,что учитель сказал правду Савелию, тогда у Савелия оценка 4 или 3. У Виталия тогда оценка 3, так как учитель ошибся, а у Аркадия или 5 или 4.
Савелий-4
Виталий-3
Аркадий-5.
ЭТО ВОЗМОЖНО!

2. Допустим, что учитель сказал правду Виталию, тогда у него оценка 4 или 5, тогда у Савелия 5, а у Аркадия 4 или 5, так как учитель ошибся.
Савелий-5
Виталий-4 или 5
Аркадий-4 или 5
НЕ У КОГО НЕТ ОЦЕНКИ 3, А ЭТОГО БЫТЬ НЕ МОЖЕТ

3.Допустим, что учитель сказал правду Аркадию, тогда у него оценка 3, тогда у Савелия 3 или 4, так как учитель ошибся, а у Виталия оценка 3, так как учитель ошибся.
Савелий-3 или 4
Виталий-3
Аркадий-3
НЕ У КОГО НЕТ ОЦЕНКИ 5,А ЭТОГО БЫТЬ НЕ МОЖЕТ.
ответ:
Савелий-4
Виталий-3
Аркадий-5

Вводите путь к файлу, кол-во букв и цифр будет в консоли и в конце файла

using System;

using System.IO;

using System.Text;

namespace Program

{

   class Program

   {

       static void Main(string[] args)

       {

           string inputFilePath = Console.ReadLine();

           string inputStr = File.ReadAllText(inputFilePath);

           int letters = 0, digits = 0;

           foreach (var s in inputStr)

           {

               if (char.IsLetter(s))

                   ++letters;

               else if (char.IsDigit(s))

                   ++digits;

           }

           File.AppendAllText(inputFilePath, $"Letters: {letters}, Digits: {digits}");

           Console.WriteLine($"Letters: {letters}\n\rDigits: {digits}\n\r");

           Console.ReadKey();

       }

   }

}