Перевести с паскаля на с# - C# (195374)
Формулировка задачи:
program array35;
uses crt;
var
a:array[1..100] of integer;
i,k,k1,k2,n:integer;
procedure mas;
begin
for i:=1 to n do
write(a[i]:5);
end;
begin
clrscr;
writeln('введите количество элементов массива:');
read(n);
for i:=1 to n do
begin
writeln('введите a[',i,'] элемент массива:');
read(a[i]);
end;
clrscr;
writeln('Исходный массив a :');
mas;
k:=a[1];
k1:=a[2];
k2:=a[3];
for i:=1 to n-3 do
a[i]:=a[i+3];
a[n]:=k2;
a[n-1]:=k1;
a[n-2]:=k;
writeln;
writeln('Полученный массив a :');
mas;
end.Решение задачи: «Перевести с паскаля на с#»
textual
Листинг программы
using System;
class AA
{
public void outt(int[] n)
{
for (int i = 0; i < n.Length; i++)
Console.Write(n[i] + " ");
}
}
class PascalCode
{
static void Main()
{
AA t = new AA();
int n = 0, d = 0;
Console.WriteLine("Введите количество элементов массива: ");
n = Convert.ToInt32(Console.ReadLine());
int[] a = new int[n];
for (int i = 0; i < n; i++)
{
Console.WriteLine("Введите " + i + " елемент: ");
a[i] = Convert.ToInt32(Console.ReadLine());
}
Console.WriteLine("Введите число d: ");
d = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("Исходный массив: ");
t.outt(a);
for (int i = 0; i < n; i++)
{
if (a[i] == d)
a[i] = a[i] + i;
}
Console.WriteLine("\nПолученный массив");
t.outt(a);
Console.ReadKey();
}
}