Что такое логическое умножение.. 1.логическая операция со связкой "не" 2.лог. опер. со связкой "или" 3. лог. опер. со связкой "и" 4. лог. опер. со связкой "когда" 5. лог. опер. со связкой "если"
Var A:array[1..10000] of real; n,i:integer; Begin Randomize; Write('n = '); ReadLn(n); Write('A(',n,'):'); For i:= 1 to n do Begin A[i]:=random*(2*n+1)-n; Write(' ',A[i]:0:1) End; WriteLn; i:=0; For n:= 1 to n-1 do if (A[n] > 0)and(A[n+1] > 0) then i:=i+1; WriteLn('k = ',i); End.
Ввод с клавиатуры, без массива:
Var A,A2:real; n,k:integer; Begin Write('n = ');ReadLn(n); Read(A); k:=0; For n:= 2 to n do Begin A2:=A; Read(A); if (A > 0)and(A2 > 0) then k:=k+1; End; WriteLn('k = ',k); End.
public class Test { public static int Main() { Random rnd=new Random(DateTime.Now.Millisecond); // иниц. датчика int n=Convert.ToInt32(Console.ReadLine()); double[] Arr=new double[n]; double e, max=0; for(int i=0;i<Arr.Length; i++) { Arr[i]=(int)(rnd.Next(1,99)); Console.Write(Arr[i]+" "); e=Math.Abs(Arr[i]); if(e>max) max=e; } Console.WriteLine("\nmax={0:f1}",max); return 0; } }
