Перевести с паскаля на с# - 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(); } }
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д