Перевести с паскаля на с# - C# (195352)
Формулировка задачи:
Помогите перевести
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;
namespace Trash
{
class Program
{
static void Main(string[] args)
{
Console.Clear();
Console.WriteLine("Введите количество элементов массива");
int[] a = new int[int.Parse(Console.ReadLine())];//объявляем массив введенного с клавиатуры размера
for (int i=0; i<a.Length; i++) //заполняем его
{
Console.WriteLine("Введите a[" + i.ToString() + "] элемент массива");
a[i] = int.Parse(Console.ReadLine());
}
Console.Clear();
Console.WriteLine("Исходный массив а:");
mas(a); //вызов метода вывода
int k = a[0], k1 = a[1], k2 = a[2]; //буферы для выполнения сдвига на 3
for (int i = 0; i < a.Length - 3; i++) //цикл сдвига
a[i] = a[i + 3];
a[a.Length - 1] = k2; //дописываем значения из буферов
a[a.Length - 2] = k1;
a[a.Length - 3] = k;
Console.WriteLine("Полученный массив");
mas(a); //вызов метода вывода
Console.ReadLine();
}
static void mas(int[] a) //метод вывода массива, параметр - массив который выводится
{
for (int i = 0; i < a.Length; i++) //цикл по количеству элементов в массиве
Console.Write("{0,5}", a[i]); //вывод поэлементо по 5 позиций на элемент
Console.WriteLine(); //перевод строки
}
}
}