Program summa;
Uses crt;
Const m=20;
Var a:array[1..m] of integer;
i,s:integer;
Begin
For i:=1 to m do
a[i]:=random(101)-50;
For i:=1 to m do
s:=s+a[i];
If s>50 then writeln('Сумма = ',s) else
for i:= 1 to m do
Writeln('Элемент массива №',i,' равен ',a[i]);
End.
или
Program summa;
Uses crt;
Const m=20;
Var a:array[1..m] of integer;
i,s:integer;
Begin
For i:=1 to m do
Readln(a[i]);
clrscr;
For i:=1 to m do
s:=s+a[i];
If s>50 then writeln('Сумма = ',s) else
for i:= 1 to m do
Writeln('Элемент массива №',i,' равен ',a[i]);
End.
1. Установить фоновую заливку страницы.
Format - Page Colors and Background - Use custom colors - выбрать цвет
2. Измененить заголовок страницы.
Format - Page Title and Properties - ввести заголовок страницы в поле "Заголовок" (Title), установить язык страницы (Language) и направление текста (Writing direction)
3. Выбрать шрифты, которые будут использоваться на странице для отображения текста.
Format - Font - выбрать шрифт
4. Ввести текст и отформатировать его с выпадающего списка "Body Text".
5. Вставить картинки на страницу.
В окне "Image Properties" выбрать местоположение картинки, выравниваие, альтернативный текст, поля и границы изображения, размеры
6. Сохранить готовую страницу под именем index.html в директории web-сайта.
