Задание 1-3
<em>// PascalABC.NET 3.2, сборка 1325 от 19.10.2016</em>
begin
var a:=ArrRandom(10,-20,20); a.Println;
Writeln('Сумма элементов ',a.Sum);
Writeln('Произведение элементов ',a.Aggregate(1,(m,n)->m*n));
Writeln('Сумма четных чисел ',a.Where(x->x.IsEven).Sum);
end.
Пример
13 18 9 -4 -13 5 -9 1 16 -5
Сумма элементов 31
Произведение элементов 394243200
Сумма четных чисел 30
Задание 4
<em>// PascalABC.NET 3.2, сборка 1325 от 19.10.2016</em>
begin
var a:=ArrRandom(ReadInteger('N='),-20,20); a.Println;
Writeln('Максимальный элемент A[',a.IndexMax+1,']=',a.Max);
Writeln('Минимальный элемент A[',a.IndexMin+1,']=',a.Min);
end.
Пример
N= 13
12 7 13 8 -19 -19 -2 3 11 8 -3 -1 3
Максимальный элемент A[3]=13
Минимальный элемент A[5]=-19
1) I1 = 1024 * 768 * 32 = 25165824 бит = 3145728 байт = 3072 КБайт = 3 МБайт - объем графического файла без сжатия
2) I2 = 3 * 0.8 = 2.4 МБайт - объем графического файла с коэффициентом сжатия 0.2
Program lol;
Var
x,y:integer;
p:boolean;
Begin
Readln(x,y);
P:= (x>2) and (y>3);
Writeln(p)
<span>End.</span>
<span>Строка состояния представляет собой горизонтальную полосу в нижней части окна документа Microsoft Word. В строке состояния отображаются данные о текущем состоянии содержимого окна и другие сведения, зависящие от контекста.
отображает
</span><span>Показывает номер страницы.
</span>число слов
язык
состояние проверки правописания. Во время поиска ошибок данный значок принимает вид книги, над которой движется карандаш. Изображение галочки свидетельствует об отсутствии ошибок. При обнаружении ошибки появляется пометка в виде буквы «Х». Для устранения ошибки дважды щелкните этот значок.
1 килобайт = 1024 байт
<span>3,5 кб = 3584 б = 3584
</span>
3584 Кб * 1024 = 3 670 016 байт
Ответ: Количество символов в тексте 3 670 016.