для 3го ложное!у него кол-во букв четное и первая согласная
ДИСК:\ИЗОБРАЖЕНИЯ\www.jpeg
ДИСК:\ИЗОБРАЖЕНИЯ\УСТРОЙСТВО ПК\Системный блок.jpeg
ДИСК:\ИЗОБРАЖЕНИЯ\УСТРОЙСТВО ПК\Устройства ввода.jpeg
ДИСК:\ТЕКСТЫ\Программное обеспечение.txt
ДИСК:\ТЕКСТЫ\Системы программирования.doc
ДИСК:\Презентация MacOS.ppt
Вместо диск то что справа на листочке(вначале ветки)
Var
A: array [1..9] of real;
i: byte;
begin
for i := 1 to 9 do read(A[i]);
for i := 9 downto 1 do writeln(A[i]);
end.
Пример:
1 2 3 4 5 6 7 8 9
9
8
7
6
5
4
3
2
1
8388608/8=1048576 байт,
1048576/1024=1024 килобайта,
1024/1024=1 мегабайт.
// 7
begin
var arr := ArrRandom(13);
arr := arr.OrderByDescending(x->x).ToArray;
arr.Println;
Print('Sum = ', arr.Where(x->x>10).Sum() + newline +
'Count = ',arr.Where(x->x>10).Count);
end.
// 8
begin
var arr := ArrRandom(10);
Sort(arr);
arr.Println;
Print('Sum = ', arr.Where(x -> x mod 5 = 0).Sum() + newline +
'Count = ', arr.Where(x -> x mod 5 = 0).Count);
end.
// 9
begin
var arr := ArrRandom(15);
arr := arr.OrderByDescending(x -> x).ToArray;
arr.Println;
Print('array elements squares sum is = ', arr.Sum(x -> x * x));
end.