Паскаль.
1. последовательно ввести n чисел. найти среднее арифметическое этих чисел.
2. последовательно ввести n целых чисел. найти минимальное из положительных чисел.

Question

Информатика: Паскаль. 1. последовательно ввести n чисел. найти среднее арифметическое этих чисел.2. последовательно ввести n целых чисел. найти минимальное из положительных чисел.

Shkolaetopolniyad · Answer

PascalABC.NET - 1 -begin  var n := ReadInteger;  ReadSeqReal( Вводите: , n).Average.Printlnend.- 2 -begin  var n := ReadInteger;  ReadSeqInteger( Вводите: , n)      .Where(p - p 0)      .Min      .Printlnend....

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