всего два
Объяснение:
Разместить на рабочем столе два окна: источник и приемник копирования. Выделить в окне-источнике необходимые значки. Несколько значков выделяются при нажатой клавише Ctrl. Перетащить мышью выделенные значки в окно-приемник, указав на любой из выделенных значков. При одновременно нажатой клавише Ctrl происходит копирование, без нее - перемещение элементов (при условии, что папки находятся на одном диске).
Выделить копируемые элементы. Выбрать меню Правка/Копировать (Вырезать). При выборе "Вырезать" произойдет перемещение. Открыть папку-приемник. Выбрать меню Правка/Вставить.
using System;
using System.Collections;
using System.Collections.Generic;
using System.Linq;
namespace CSLear
{
partial class Program
{
private static Random r = new Random();
static void Main(string[] args)
{
int[] Arr = GenIntArray(r.Next(40), -99, 99);
Arr.PrintLn();
IntArrDiff(Arr).PrintLn();
((Arr.Last()) / 2).PrintLn();
Console.ReadKey();
}
private static int[] GenIntArray(int size, in int minValue, in int maxValue)
{
int[] temp = new int[size];
for (int i = 0; i < size; i++)
{
temp[i] = r.Next(minValue, maxValue);
}
return temp;
}
private static int IntArrDiff(int[] arr)
{
int temp = arr[0];
for (int i = 1; i < arr.Length; i++)
{
temp -= arr[i];
}
return temp;
}
}
public static class Extensions
{
public static void PrintLn<T>(this T Value)
{
Console.WriteLine(Value);
}
public static void PrintLn<T>(this T[] ArrValue)
{
StringBuilder sb = new StringBuilder();
foreach (T Item in ArrValue)
{
sb.Append($"{Item} ");
}
sb.Append("\n");
Console.WriteLine(sb.ToString());
}
}
}
По поводу расширений .PrintLn() - Давно и отдельно писал их на случай, когда нужно много всего печатать в консоль. Сюда просто подошли случайно, по этому я добавил часть исходного кода класса Extensions, содержащую определение этих методов. Если есть какие то вопросы - задавайте.
var
a: array of integer;
i, n, k: integer;
begin
randomize;
k := 0;
write('Введите n = ');
readln(n);
SetLength(a, n);
writeln(' *** Сгенерированный массив *** ');
for i := 0 to Length(a) - 1 do
begin
a[i] := random(20) + 1;
write(' ', a[i]);
end;
for i := 1 to Length(a) - 1 do
if (a[i] mod a[0]) = 0 then Inc(k);
writeln(#13 + 'Кол-во элементов кратных "', a[0], '" = ', k);
end.