Владимир
?>

МНЕ НУЖНО Как запустить компиляцию кода?Назови несколько событий, которые может инициировать пользователь в системе?Назови общие свойства компонентов? НУЖНО НУ

Информатика

Ответы

Borisovna24
// PascalABC.NET 3.2, сборка 1488 от 21.06.2017
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Наименьший элемент равен ',a.Min)
end.

Пример
n= 17
-34 -4 -16 50 -12 -13 -40 -10 4 1 46 -46 2 -13 4 -4 20
Наименьший элемент равен -46

№2

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('Вводите элементы построчно');
  var t:=ReadMatrInteger(m,n).ElementsWithIndexes.MaxBy(x->x[0]);
  Writeln('Максимальный элемент A[',t[1]+1,',',t[2]+1,']=',t[0])
end.

Пример
Количество строк и столбцов в массиве: 3 4
Вводите элементы построчно
5 -6 0 9
12 7 12 0
-8 23 6 20
Максимальный элемент A[3,2]=23

№3

begin
  var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println;
  Writeln('Сумма положительных элементов равна ',a.Where(x->x>0).Sum);
  Writeln('Количество отрицательных элементов равно ',a.Where(x->x<0).Count);
  Writeln('Количество нулевых элементов равно ',a.Where(x->x=0).Count);
end.

Пример
n= 18
-16 -15 -20 -20 17 2 -3 13 15 -11 -10 -6 0 -5 10 0 20 10
Сумма положительных элементов равна 87
Количество отрицательных элементов равно 9
Количество нулевых элементов равно 2

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

МНЕ НУЖНО Как запустить компиляцию кода?Назови несколько событий, которые может инициировать пользователь в системе?Назови общие свойства компонентов? НУЖНО НУ
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Vladimirovna
Igor120
shuramuji
впвыпвып-Зуйков629
VladimirovnaSimonov
Irina_Nikolai
Vova220
ludmila-malev280
Орлова
pavlino-mkr
baranovaas
samoilovcoc
mmoskow3
Половников1964
vvb1383