С РЕШЕНИЕМ ЗАДАЧ,НУЖНО С ВХОД ДАННАМИ И ПРОГРАММОЙ - id521105896 от kirillmajer2007 08.08.2022 17:21

Question

Информатика: С РЕШЕНИЕМ ЗАДАЧ,НУЖНО С ВХОД ДАННАМИ И ПРОГРАММОЙ БОЖЕ 1.Дана точка А (х,у) Определить лежит ли эта точка в первой координатной четверти,включая оси координат. 2. Даны два числа,не равные друг другу.Заменить большее из них полуразностью,а меньшее-удвоенным произведением этих чисел.

kirillmajer2007 · Accepted Answer

PascalABC.NET 3.5.1 + .NET Framework 4.7.1

#1

begin

var l := ReadInteger('Задайте длину массива: ');

var A := ReadArrReal(l);

WritelnFormat('Min: {0}, Number in array: {1}', A.Min, A.IndexOf(A.Min));

end.

#2

begin

var t := ReadInteger('Array length: ');

var A := ArrRandom(t, -60, 60);

A.Println;

A.Where(p -> p > 20).Sum.Println;

end.

#3

begin

var A := ArrRandom(14, 3, 30);

A.Println;

A.Where(p -> p > 13).Count.Println;

end.

Объяснение:

Функции _ReadArrReal_ и _ArrRandom_ в PascalABC.NET Возвращают массив (array of real и array of integer соответственно), по этому хоть ни в одной программе нет явного объявления массива вида A : Array of T, все три программы используют обычные массивы.

Ответы на вопрос:

Популярно: Информатика