Как перевести этот код с Паскаля на C#?

@Prikolistiks · Регистрация: 12.09.2017

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

Для большей понятности текст задания: Даны два массива одинаковой размерности. Получить третий массив такой же размерности, каждый элемент которого равен максимальному из соответствующих элементов данных массивов.

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
28
Program mas;
Uses crt;
Const n=5;
Var a,b,c: array[1..n] of byte; i: byte;
Begin
Clrscr;
Randomize;
Writeln('Исходные массивы: ');
For i:=1 to n do
begin
a[i]:=random(11);
Write(a[i]:3);
end;
Writeln;
For i:=1 to n do
begin
b[i]:=random(11);
Write(b[i]:3);
end;
Writeln;
For i:=1 to n do
If a[i]>b[i] then
c[i]:=a[i]
else c[i]:=b[i];
Writeln('Результат: ');
For i:=1 to n do
Write(c[i]:3);
End.

@dazering · 14.01.2019, 18:32

Не совсем дословно

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
            int n = 5;
            int[] a = new int[n], b = new int[n], c = new int[n];
            Random random = new Random();
            WriteLine("Исходные массивы");
            for(int i = 0; i < a.Length; i++)
            {
                a[i] = random.Next(11);
                Write(a[i] + " ");
            }
            WriteLine();
            for(int i = 0; i < b.Length; i++)
            {
                b[i] = random.Next(11);
                Write(b[i] + " ");
            }
            WriteLine();
            WriteLine("Результат: ");
            for(int i = 0; i < c.Length; i++)
            {
                if (a[i] > b[i])
                    c[i] = a[i];
                else
                    c[i] = b[i];
                Write(c[i] + " ");
            }

@Prikolistiks · 14.01.2019, 18:54 **[ТС]**

Спасибо огромное. Не могли бы вы помочь ещё с один переводом. Так же с Pascal на C#.
Заполнить массив nxm в шахматном порядке клетки черного цвета нулями, а белого цвета - числами натурального ряда сверху вниз, слева направо.

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
uses crt;
const m=4;
      n=7;
var a:array[1..m,1..n] of integer;
    i,j,k:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
k:=0;
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    if(i+j)mod 2=0 then
     begin
      k:=k+1;
      a[i,j]:=k;
     end
    else a[i,j]:=0;
    write(a[i,j]:4);
   end;
  writeln;
 end;
readln
end.

@dazering · 14.01.2019, 19:04

Prikolistiks,

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
            const int m = 4, n = 7;
            int[,] array = new int[m, n];
            WriteLine("Исходная матрица:");
            int k = 0;
            for(int i = 0; i < m; i++)
            {
                for(int j = 0; j < n; j++)
                {
                    if ((i + j) % 2 == 0)
                    {
                        k++;
                        array[i, j] = k;
                    }
                    else
                        array[i, j] = 0;
                    Write(array[i, j] + " ");
                }
                WriteLine();
            }

@Prikolistiks · 14.01.2019, 19:08 **[ТС]**

огромное спасибо

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@Prikolistiks 0 / 0 / 0 Регистрация: 12.09.2017 Сообщений: 6
	14.01.2019, 19:08 [ТС]
	огромное спасибо 0

Как перевести этот код с Паскаля на C#?

Решение