===== PascalABC.NET =====
begin
// 1
var a := ArrRandom(7, -4, 5);
a.Println;
// 2
var b := ReadArrInteger('Введи 8 чисел:', 8);
Println('Сумма четных:', b.Where(p -> p.IsEven).Sum);
var p := b.Where(p -> p > 4).DefaultIfEmpty.Product;
if p >0 then
Println('Произведение элементов, больших 4:', p)
else
Println('Нет элементов, больших 4');
// 3
var c := ArrRandom(10, -14, 7);
c.Println;
Print('Минимальный элемент, больший 5');
var m := c.Where(p -> p > 5).DefaultIfEmpty.Min;
if m = 0 then
Println('отсутствует')
Println('равен', m);
var im := c.IndexMin;
Println('Миниммальный элемент номер', im + 1, 'равен ', c[im])
end.
Требования безопасности перед началом работы:
1. Запрещено входить в кабинет в верхней одежде, головных уборах, с громоздкими предметами и едой
2. Запрещено входить в кабинет информатики в грязной обуви без бахил или без сменной обуви
3. Запрещается шуметь, громко разговаривать и отвлекать других учащихся
4. Запрещено бегать и прыгать, самовольно передвигаться по кабинету
5. Перед началом занятий все личные мобильные устройства учащихся (телефон, плеер и т.п.) должны быть выключены
6. Разрешается работать только на том компьютере, который выделен на занятие
7. Перед началом работы учащийся обязан осмотреть рабочее место и свой компьютер на предмет отсутствия видимых повреждений оборудования
8. Запрещается выключать или включать оборудование без разрешения преподавателя
9. Напряжение в сети кабинета включается и выключается только преподавателем
===== PascalABC.NET =====
begin
// 1
var a := ArrRandom(7, -4, 5);
a.Println;
// 2
var b := ReadArrInteger('Введи 8 чисел:', 8);
Println('Сумма четных:', b.Where(p -> p.IsEven).Sum);
var p := b.Where(p -> p > 4).DefaultIfEmpty.Product;
if p >0 then
Println('Произведение элементов, больших 4:', p)
else
Println('Нет элементов, больших 4');
// 3
var c := ArrRandom(10, -14, 7);
c.Println;
Print('Минимальный элемент, больший 5');
var m := c.Where(p -> p > 5).DefaultIfEmpty.Min;
if m = 0 then
Println('отсутствует')
else
Println('равен', m);
var im := c.IndexMin;
Println('Миниммальный элемент номер', im + 1, 'равен ', c[im])
end.
Требования безопасности перед началом работы:
1. Запрещено входить в кабинет в верхней одежде, головных уборах, с громоздкими предметами и едой
2. Запрещено входить в кабинет информатики в грязной обуви без бахил или без сменной обуви
3. Запрещается шуметь, громко разговаривать и отвлекать других учащихся
4. Запрещено бегать и прыгать, самовольно передвигаться по кабинету
5. Перед началом занятий все личные мобильные устройства учащихся (телефон, плеер и т.п.) должны быть выключены
6. Разрешается работать только на том компьютере, который выделен на занятие
7. Перед началом работы учащийся обязан осмотреть рабочее место и свой компьютер на предмет отсутствия видимых повреждений оборудования
8. Запрещается выключать или включать оборудование без разрешения преподавателя
9. Напряжение в сети кабинета включается и выключается только преподавателем