For i:=n downto 1 do write (mas[i], ' ');
n - количество чисел в массиве
Uses Crt;
Var
A:array[1..256] of integer;
i,iMin,N,B:integer;
Begin
ClrScr;
Randomize;
Write('N = ');ReadLn(N);
Write('A(',N,'):');
iMin:=1;
For i:= 1 to n do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
if A[i] < A[iMin] then iMin:=i;
End;
WriteLn;
WriteLn('Min(A) = ',A[iMin],'[',iMin,']');
Write('Min = ');ReadLn(i);
B:=A[i];
A[i]:=A[iMin];
A[iMin]:=B;
Write('A(',N,'):');
For i:= 1 to n do
Write(' ',A[i]);
ReadKey
End.
Кол-во пикселей = 64 * 64 = 4096
512 байт = 4096 бит
1 способ:
если x<=-1
то ...
иначе если x<0 то ...
иначе ...
2 способ:
если x<=-1 то ...
если (x>-1) И (x<0) то ...
если x>=0 то ...
Static void Main(string[] args)
{
int count = 0;
Console.Write("Введите размерность массива: ");
int n = Convert.ToInt32(Console.ReadLine());
int[] mas = new int[n];
Console.WriteLine("Заполните массив: ");
for (int i = 0; i < n; i++)
{
Console.Write("\t{0} элемент массива: ", i + 1);
mas[i] = Convert.ToInt32(Console.ReadLine());
}
for (int i = 0; i < n; i++)
if (mas[i] > 0 && mas[i] \% 2 == 0)
count++;
Console.WriteLine("Из {0} элементов массива {1} элементов являются положительными четными",n,count);
Console.WriteLine("{0}\% элементов являются положительными четными", (double)count/n*100);
Console.ReadLine();
}