Информатика записать на языке паскаль следующие выражения: y=5x^5-10x+2 z=14x^4-5x^3+11x-17 s= |3x^4+12^3-4x+7|-13

1)  

var mas:array[1..7] of integer;

    i:integer;

begin

writeln('Введите 7 целых чисел:');

for i:=1 to 7 do

begin

readln(mas[i]);

if(mas[i] mod 2 <>0) then mas[i]:=mas[i]*10;

end;

writeln('Изменённый массив:',mas);

end.

2) var mas:array[1..9] of integer;

    i,b:integer;

begin

writeln('Введите 9 целых чисел:');

for i:=1 to 9 do

begin

readln(mas[i]);

if(mas[i] <0) then b:=b+mas[i];

end;

writeln('Сумма отрицательных элементов= :',b);

end.

3) var mas:array[1..4] of integer;

    i,b:integer;

begin

writeln('Введите 4 целые числа:');

b:=1;

for i:=1 to 4 do

begin

readln(mas[i]);

b:=b*mas[i];

end;

writeln('Произведение чисел= ',b);

end.

static void Main(string[] args)

       { //задаем массив, и переменные для хранения  минимального элемента, его строки и столбца

           int[,] array = {

                     {1,10,11,12,13},

                     {2,12,11,12,13},

                     {3,30,11,12,13},

                     {4,40,11,12,13}

               };

           int minElement = array[0, 0];

           int numStr = 0;

           int numStolb = 0;

          // вывод массива ДО

           for (int i = 0; i < array.GetLength(0); i++)

           {

               for (int j = 0; j < array.GetLength(1); j++)

               {

                   Console.Write(" " + array[i, j]);

               }

               Console.WriteLine();

           }

           Console.WriteLine();

           //ищем минимальный элемент

           for (int i = 0; i < array.GetLength(0); i++)

           {

               for (int j = 0; j < array.GetLength(1); j++)

               {

                   if (minElement > array[i, j])

                   {

                       minElement = array[i, j];

                       //запоминаем строку и столбец минимального элемента

                       numStr = i;

                       numStolb = j;

                   }

               }

           }

           //выводим в консоль минимальный элемент

           Console.WriteLine("Min Element in array: " + minElement);

           Console.WriteLine();

           //если строка минимального элемента равна 0(т.е. первая)

           //заменяем элементы после минимального на 0 и выводим массив ПОСЛЕ

           if (numStr == 0)

           {

               for (int k = numStolb + 1; k < 5; k++)

               {

                   //замена элементов строки на 0

                   array[0, k] = 0;

               }

               //вывод массива

               for (int i = 0; i < array.GetLength(0); i++)

               {

                   for (int j = 0; j < array.GetLength(1); j++)

                   {

                       Console.Write(" " + array[i, j]);

                   }

                   Console.WriteLine();

               }

           }

           Console.ReadLine();

       }