Укажите, как выделить следующий фрагмент (соеденить стрелками). отдельное слово 1)подвести указатель - id8721620200227 от Назым011 27.02.2020 06:54

Question

Информатика: Укажите, как выделить следующий фрагмент (соеденить стрелками). отдельное слово 1)подвести указатель мыши к левой границе строки так, чтобы он принял виднаклонной стрелки. 2)выполнить щелчок левой кнопкой мыши. строка текста 1)подвести указатель мыши к левой границе текста так, чтобы он принял вид наклонной стрелки. 2)выполнить трайной щелчок левой кнопки мыши абзац 1)навести указатель мыши на нужное слово. 2)выполнить двойной щелчок левой кнопки мыши. весь текст 1)установить указатель мыши над

Назым011 · Accepted Answer

// 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 элементов, квадрат которых больше квадрата первого

MOGZ ответил