Const n=8; var x : array[1..n] of real; i : integer; min : real; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin x[i]:=20*random-10; write(x[i]:6:2,' '); end; writeln; min:=x[1]; for i:=2 to n do if x[i] < min then min:=x[i]; writeln('min=',min:6:2); for i:=1 to n do if x[i]<0 then x[i]:=min; writeln('Измененный массив:'); for i:=1 to n do write(x[i]:6:2,' '); end.
class Program { static void Main(string[] args) { int n=10; int[] a = new int[n]; int s=0; Random r = new Random(); Console.WriteLine("Массив a:"); for (int i = 0; i < n; i++) { a[i] = r.Next(50); Console.Write("{0,5}", a[i]); } Console.WriteLine(); Console.WriteLine("Номера чисел, кратных 9:"); for (int i = 0; i < n; i++) { if (a[i] % 9 == 0) Console.Write("{0,3}", i); if (a[i] % 10 == 1) s += a[i]; } Console.WriteLine(); Console.WriteLine("s = {0}", s); Console.ReadKey(); } }
Пример (для n=10): Массив a: 1 9 47 20 4 10 27 23 4 46 Номера чисел, кратных 9: 1 6 s = 1