// PascalABC.NET 3.0, сборка 1076 begin var n:=ReadInteger('Число элементов массива='); var a:=ArrRandom(n,-25,25); Write('Исходный массив: '); a.Println; var k:=a.Where(x->sqr(x)>sqr(a[0])).Count; if k>0 then Writeln ('Найдено ',k,' элементов, квадрат которых больше квадрата первого') else Writeln ('Нет ни одного элемента, квадрат которого больше квадрата первого') end.
Тестовое решение: Число элементов массива=15 Исходный массив: 11 12 -11 -3 -16 -22 22 4 -4 -1 -16 -9 -19 4 16 Найдено 7 элементов, квадрат которых больше квадрата первого
Microsoft Word многим обязан Braxo — текстовому редактору с оригинальным графическим интерфейсом, разработанному в исследовательском центре «Xerox P.iRC». Создатель Braxo Чарльз Симони
Щ X I ЧАЛЛЛА^ЧЛААЛЛЛАЛ
(Charles Simonyi) покинул P.iRC в 1981 году. Тем же летом Симони переманил Броди, с которым вместе работал над Braxo.
Первый выпуск Word для MS-DOS состоялся в конце 1983 года. Он был плохо принят рынком, продажи снижаю наличие конкурирующего продукта — WordPerfect.
Однако версия для «макинтоша», выпущенная в 1985 году, полу чила широкое распространение. Через два года « Word 3.01 для Macintosh» усилил позиции (версия 3.0 изобиловала ошибками и быстро была заменена). Как и прочее программное обеспечение для «макинтоша», Word был полностью WY.SIJTYG-редактором (принцип «ПЪаг You See Is What You Get» — «полу чаешь то, что видишь»).
Хотя MS-DOS и являлась текстовой операционной системой, лишённой графической оболочки, Word для DOS был первым текстовым процессором для IBM PC, который был отображать разметку текста, например, полужирный или курсивный текст в процессе
i А * ✓ I / 4 VV4^4^4^HS^vA *
редактирования. Однако он всё же не являлся в полном смысле JITSIUYG-редактором. Другие же текстовые процессоры, такие как WordStar и WordPerfect, использовали простой текстовый экран с кодами разметки, иногда текст был цветным.
begin
var n:=ReadInteger('Число элементов массива=');
var a:=ArrRandom(n,-25,25);
Write('Исходный массив: '); a.Println;
var k:=a.Where(x->sqr(x)>sqr(a[0])).Count;
if k>0 then Writeln
('Найдено ',k,' элементов, квадрат которых больше квадрата первого')
else Writeln
('Нет ни одного элемента, квадрат которого больше квадрата первого')
end.
Тестовое решение:
Число элементов массива=15
Исходный массив: 11 12 -11 -3 -16 -22 22 4 -4 -1 -16 -9 -19 4 16
Найдено 7 элементов, квадрат которых больше квадрата первого
Microsoft Word многим обязан Braxo — текстовому редактору с оригинальным графическим интерфейсом, разработанному в исследовательском центре «Xerox P.iRC». Создатель Braxo Чарльз Симони
Щ X I ЧАЛЛЛА^ЧЛААЛЛЛАЛ
(Charles Simonyi) покинул P.iRC в 1981 году. Тем же летом Симони переманил Броди, с которым вместе работал над Braxo.
Первый выпуск Word для MS-DOS состоялся в конце 1983 года. Он был плохо принят рынком, продажи снижаю наличие конкурирующего продукта — WordPerfect.
Однако версия для «макинтоша», выпущенная в 1985 году, полу чила широкое распространение. Через два года « Word 3.01 для Macintosh» усилил позиции (версия 3.0 изобиловала ошибками и быстро была заменена). Как и прочее программное обеспечение для «макинтоша», Word был полностью WY.SIJTYG-редактором (принцип «ПЪаг You See Is What You Get» — «полу чаешь то, что видишь»).
Хотя MS-DOS и являлась текстовой операционной системой, лишённой графической оболочки, Word для DOS был первым текстовым процессором для IBM PC, который был отображать разметку текста, например, полужирный или курсивный текст в процессе
i А * ✓ I / 4 VV4^4^4^HS^vA *
редактирования. Однако он всё же не являлся в полном смысле JITSIUYG-редактором. Другие же текстовые процессоры, такие как WordStar и WordPerfect, использовали простой текстовый экран с кодами разметки, иногда текст был цветным.