Пожалуйста переведите код с Pascal на C#

@mmaxim615 · Регистрация: 13.02.2018

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
]uses crt;
var a:array[1..25]of integer;
i,b,s,a1,kol:integer;
begin
clrscr; 
s:=0;
kol:=0;
writeln('Введите число A');
readln(a1);
writeln('Ввведите 25 элементов');
for i:=1 to 25 do
begin
readln(b);
a[i]:=b;
end;
writeln;
for i:=1 to 25 do write(a[i],' ');
for i:=1 to 25 do
begin
if i mod 2<>0 then s:=s+a[i];
if (a[i] mod 5=0) and (a[i]>a1) then inc (kol);
end;
writeln;
writeln('Сумма элементов с нечетными индексами = ',s);
writeln('Кол-во элементов массива значение которых больше заданного числа А и кратно 5 =',kol);
readln;
end.

@VIAZNIKOVGM · 29.03.2018, 15:10

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
using System;
 
namespace Cyberforum
{
  class MainClass
  {
    static readonly int SIZE = 25;
 
    static void Main()
    {
      var values = new int[SIZE];
 
      Console.Write("Введите число A: ");
      int someValue = int.Parse(Console.ReadLine());
 
      Console.WriteLine("Введите " + SIZE + " элементов массива: ");
      for (int i = 0; i < values.Length; i++)
        values[i] = int.Parse(Console.ReadLine());
 
      int sum = 0;
      int count = 0;
 
      for (int i = 0; i < values.Length; i++)
      {
        if (i % 2 != 0)
          sum += values[i];
 
        if (values[i] > someValue && values[i] % 5 == 0)
          count++;
      }
 
      Console.WriteLine("Сумма элементов с нечетными индексами: " + sum);
      Console.WriteLine("Кол-во элементов массива значение которых больше заданного числа А и кратно 5: " + count);
      Console.ReadKey();
    }
  }
}

@Skorp24 · 29.03.2018, 16:14

Сообщение от VIAZNIKOVGM

var values = new int[SIZE];

Наверное, правильнее (с точки зрения хорошего кода) и понятнее

C#
1
int[] values = new int[SIZE];

@VIAZNIKOVGM · 29.03.2018, 16:21

Skorp24, ну тогда давайте Int32 вместо int писать, как Рихтер рекомендует.

Добавлено через 3 минуты
Я в справочнике Албахари читал, что var не следует использовать только там, где нельзя "на глаз" определить тип возвращаемого значения.

Добавлено через 17 секунд

Сообщение от Skorp24

int[] values = new int[SIZE];

сомнительно.

@Skorp24 · 29.03.2018, 16:25

VIAZNIKOVGM, давайте. Но везде, а не в одном месте var, а в других местах внезапно строгие типы. Иначе беспорядок

Добавлено через 2 минуты

Сообщение от VIAZNIKOVGM

Я в справочнике Албахари читал, что var не следует использовать только там, где нельзя "на глаз" определить тип возвращаемого значения.

В профессиональных кодах — да, сколько людей, столько и мнений. Но в данный момент мы общаемся с новичком. В таком ключе лучше таки использовать строгие типы.

@MRGRD56 · 29.03.2018, 17:46

Как-то так.

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
using System;
using static System.Console;
using static System.Convert;
 
namespace ConsoleApplication
{
    class Program
    {
        static int[] array = new int[25];
        static int s = 0, count = 0;
 
        static void Main(string[] args)
        {
            Console.Write("Введите значение переменной A: ");
            int a1 = ToInt32(ReadLine());
 
            Console.WriteLine("Введите 25 элементов массива:");
            for (int i = 0; i < 25; i++)
                array[i] = ToInt32(ReadLine());
 
            WriteLine();
 
            foreach (int num in array)
                Write($"{num} ");
 
            for (int i = 0; i < 25; i++)
            {
                if (i%2 != 0) s += array[i];
                if (array[i]%5 == 0 && array[i] > a1) count++;
            }
 
            WriteLine($"\nСумма элементов с нечетными индексами = {s}");
            WriteLine($"Кол-во элементов массива значение которых больше заданного числа А и кратно 5 = {count}");
            ReadKey();
        }
    }
}

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .