1)const n=5; var a:array[1..n] of byte;k,i:integer;beginwriteln('введите числа , для изменения кол-ва вводимых чисел изменить в 1-ой строчке с 5на любое значение >2 ');for i:=1 to n do readln(a[i]);for i:=1 to n doif a[i] div 10 > a[i] mod 10 then inc(k); write(k);end. 2)const n=5; var a,b:array[1..n] of byte;sr,max,k,i:integer;beginwriteln('для изменения кол-ва чисел изменить в 1-ой строчке с 5на любое значение >2 ');for i:=1 to n do a[i]:=random(100);for i:=1 to n do b[i]:=a[i];for i:=1 to n do max:=max+a[i];sr:=max div n;writeln('начальный массив');for i:=1 to n do writeln(a[i]);write('сред арифм= ',sr);writeln;for i:=1 to n do if sr> b[i] then b[i]:=0;for i:=1 to n do writeln(b[i]);end.
Int num = 0; Console.WriteLine("Введите элементы массива через пробел:"); String[] array = Console.ReadLine().Replace(" "," ").Split(); Int32[] numbers = new Int32[array.Length]; Console.Write("Массив: ["); for (int i = 0; i < numbers.Length; i++) { Console.Write(array[i]); if(i!=numbers.Length-1) Console.Write(", "); numbers[i] = Int32.Parse(array[i]); if (num == 0) num = numbers[i]; } Console.Write("]\n"); if (num > 0) Console.WriteLine("Максимальное число в квадрате: {0}",Math.Pow(numbers.Max(), 2)); else Console.WriteLine("Минимальное число в квадрате: {0}",Math.Pow(numbers.Min(), 2)); Console.WriteLine("\nНажмите любую клавишу чтобы выйти..."); Console.ReadKey();
