Перевод кода из С# - Pascal ABC

Формулировка задачи:

Кто знает как помогите)
class Program
{
    static void Main(string[] args)
    {
        double[] array = new double[] { 1, 3, 7, 1, 7, 3 };
 
        Console.WriteLine("Исходный массив: " + string.Join(" ", array));
 
        double min = array[0];
 
        foreach (double i in array)
            if (i < min)
                min = i;
 
        for (int i = 0; i < array.Length; i++)
            if (array[i] == min)
                array[i] = -min;
 
        Console.WriteLine("Измененный массив: " + string.Join(" ", array));
        Console.ReadKey();
    }
}

Код к задаче: «Перевод кода из С# - Pascal ABC»

textual
program for_alchimikf;
 
uses
   crt;
 
var
   a: array[1..6] of integer;
   i, min: integer;
 
begin
   a[1] := 1;a[2] := 3;a[3] := 7;a[4] := 1;a[5] := 7;a[6] := 3; 
   min := a[1];
   Write('Исходный массив:  ');
   for i := 1 to 6 do
   begin
      Write(a[i], ' ');
      if a[i] < min then
         min := a[i];
   end;
   Writeln;
   for i := 1 to 6 do
      if a[i] = min then
         a[i] := min * (-1);
   Write('Измененный массив:  ');
   for i := 1 to 6 do
      Write(a[i], ' ');
   Writeln();
   
   
   
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

9   голосов, оценка 3.889 из 5


СДЕЛАЙТЕ РЕПОСТ