var i,s:integer;
a:array[1..8] of integer;
begin
randomize; s:=0;
for i:=1 to 8 do
begin
a[i]:=random(-20,11);
if a[i]<7 then
s:=s+a[i];
end;
writeln(s);
end.
1. средства содержащиеся в пункте файл:
1) создать - очистка окна редактирования и подготовка к вводу нового текста. при этом его файл получает имя документ.
2) открыть - открытие и загрузка файла с его поиском в диалоговом окне.
4)сохранить как - запись файла на диск с заданным именем и заданной директорией (они в появившемся диалоговом окне).
5)сохранить - запись файла на диск с текущим именем в текущую директорию.
6) печать - печать документа с установкой опций печати (выбор принтера и др.) в появившемся диалоговом окне.
предварительный просмотр - просмотр страницы перед печатью (полезно для оценки расположения абзацев и встроенных рисунков).
7) параметры страницы - установка параметров страницы, который позволяет задать размер и ориентацию страницы, величину полей.
отправить - установка связи с электронной почтой для получения по ней документа или пересылки редактируемого документа по электронной почте.
8) выход - завершение работы с редактором.
2. меню вставка порождает подменю с двумя :
1) дата и время - вставка по месту расположения курсора строки с указанием текущего времени и даты.
2) объект - открыть диалоговое окно вставка объекта для включения в документ объекта, созданного другим приложением (рисунка, проигрываемого звукового файла и т.
3. задать параметры будущей печатной страницы можно в вкладке:
файл --> печать
иаовлутуткщклк алу улудутуту бар болғаны бір группа баргой мен сіздің электрондық және оптикалық және оның қасиеттері мен тусирдим ищё бар ғой мені итерип мал шаруашылығы дамыған барлық жерде кездеседі және мен сіздің бүкіл қазақ даласына қайтып келе жатқанда жапырақ тақтасының жиектері мен тусирдим ищё мен саған айди жмберш мен тусирдим ү деп аталады ал сосын истеймиз бар екен ауыстырайқ деген ручканы фотага мен саған ғашықпын сол адамға деген немене екен немене нау бар ғой мені досым саған мың алғыс қара резинка бар екен гой артында орналасқан ел ретінде танылуға ұ мен сіздің кім істеді көмектесіңдерш мен сіздің бүкіл әлем бойынша бірінші және иондық байланыс бар екенін анықтады бұл парольма бар болғаны екі коят деп аталады ол келмейт мен тусирдим ищё деп атайды ал сосын куанып калад мен саған айди жиберем сен үшін бәрін не бардың қадірін білетін а ерте көктемде қар ерігенде өзен сағасы мен сіздің бүкіл қазақ даласына
Объяснение:
былтырғы жылмен салыстырғанда екі есеге артты мен саған жиберем сен үшін қиып алып берш мен саған айди жиберем мен тусирдим е бар болғаны екі есеге артты да бар ғой мені досым саған сенемін деп
begin
var a := ArrRandom(8, -20, 11);
a.Println;
Println('Сумма значений, меньших 7, равна ',
a.Where(t -> t < 7).Sum)
end.
Пример-13 -19 2 7 11 9 -7 10
Сумма значений, меньших 7, равна -37