Первый вариант программы: Const N = 5; Var A:array[1..N] of integer; i:integer; S:real; Begin Randomize; S:=0; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(21)-10; Write(' ',A[i]); S:=S+A[i]; End; WriteLn; WriteLn('Сумма его элементов: ',S); End.
Второй вариант программы: Const N = 13; Var A:array[1..N] of integer; i,S,B:integer; Begin Randomize; S:=0; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(21)-10; Write(' ',A[i]); End; WriteLn; Write('Введите номера пяти элементов: '); For i:= 1 to 5 do Begin Read(B); S:=S+A[B]; End; WriteLn('Их сумма равна: ',S); End.
Пример: Исходный массив: 0 -9 6 4 -7 -1 9 -7 -2 -4 -6 4 -1 Введите номера пяти элементов: 3 4 7 12 1 Их сумма равна: 23
Aurora 3D Text and Logo Maker - это продвинутый, мощный дизайнерский инструмент для создания уникального 3D текста, кнопок и логотипов, имеет достаточно большое количество шаблонов и готовых форм, которые можно использовать для создания собственного текста. Aurora 3D Text and Logo Maker имеет комплект эффектов, анимаций, текстур, с которых можно украсить 3D логотип или текст. При создании трёхмерного логотипа можно отрегулировать уровень света, добавить теней, рельеф, выбирать различные варианты искривления, выравнивания, освещения, наложения объектов и т. д. Допускается импорт шрифтов и SVG-графики. Итоговый вариант выводится в виде PNG, TGA, TIFF, JPG, BMP, XPM и PPM-файлов.
1) один символ (например буква) = 1 байт. 1 байт = 8 бит (или по другому - 8 разрядов). Некоторые символы, например иероглифы не умещаются в 1 байт потому что их много, поэтому для них используют не один байт, а больше. Если для символа нужно больше 8 бит, то прибавляют не недостающее число битов, а удваивают число байт. Поэтому буквы (символы) или 8-ми разрядные (1 байт), или 16-ти разрядные (2 байта), или 32-х разрядные (4 байта). 2) МАМА - это 4 обычных символа, или 4 байта (32 бита). 3) один байт, или 8 бит. 4) 15 байт - количество всех букв + пробелы + точка. Или 120 бит. 5) 21 байт, или 168 бит (все буквы + пробел + точка). 6) 7 букв = 7 байт. 7) 20 х 40 = 800 символов/страница. 2 страницы = 1600 символов. 1600 символов = 1600 байт, или 1600 х 8 = 12800 бит. 8) 20 байт. 9) большой латинской "ай" - "I". 10) латинская буква "N". 11) маленькая латинская "ай" - "i". Из формулы Хартли N=
Const
N = 5;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
S:=S+A[i];
End;
WriteLn;
WriteLn('Сумма его элементов: ',S);
End.
Пример:
Исходный массив: -6 -9 8 7 1
Сумма его элементов: 1
Второй вариант программы:
Const
N = 13;
Var
A:array[1..N] of integer;
i,S,B:integer;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
End;
WriteLn;
Write('Введите номера пяти элементов: ');
For i:= 1 to 5 do
Begin
Read(B);
S:=S+A[B];
End;
WriteLn('Их сумма равна: ',S);
End.
Пример:
Исходный массив: 0 -9 6 4 -7 -1 9 -7 -2 -4 -6 4 -1
Введите номера пяти элементов: 3 4 7 12 1
Их сумма равна: 23