// PascalABC.NET 3.3, сборка 1590 от 03.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ReadArrInteger(10); Write('Массив A: '); a.Println; var s:=a.Where(t->t<0); // последовательность не хранится var an:=s.Average; Writeln('Отрицательных элементов: ',s.Count,', среднее= ', an); var b:=a.Select(t->t<0?an:t).ToArray; Write('Массив В: '); b.Println end.
#include <iostream> #include <iomanip> using namespace std;
int main() { int n; cout<<"n = "; cin>>n; // ввод количества элементов массива int a[n]; // заполнение массива и вывод на экран for (int i=0;i<n;i++) { a[i]=rand()%15; cout<<a[i]<<" "; } cout<<endl; // перевод строки // сортировка массива по возрастанию for (int i=0; i<n-1; i++) for (int j=i+1; j<n; j++) if (a[i]>a[j]) swap(a[i],a[j]); // вывод 4 минимальных cout<<"four min numbers: "; for (int i=0; i<4; i++) cout<<a[i]<<" "; cout<<endl; system("pause"); // ожидание ввода с клавиатуры return 0; }
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger(10);
Write('Массив A: '); a.Println;
var s:=a.Where(t->t<0); // последовательность не хранится
var an:=s.Average;
Writeln('Отрицательных элементов: ',s.Count,', среднее= ', an);
var b:=a.Select(t->t<0?an:t).ToArray;
Write('Массив В: '); b.Println
end.
Пример
49 -5 21 10 22 -23 3 35 -26 -43
Отрицательных элементов: 4, среднее= -24.25
Массив В: 49 -24.25 21 10 22 -24.25 3 35 -24.25 -24.25
#include <iomanip>
using namespace std;
int main() {
int n;
cout<<"n = "; cin>>n; // ввод количества элементов массива
int a[n];
// заполнение массива и вывод на экран
for (int i=0;i<n;i++) {
a[i]=rand()%15; cout<<a[i]<<" ";
}
cout<<endl; // перевод строки
// сортировка массива по возрастанию
for (int i=0; i<n-1; i++)
for (int j=i+1; j<n; j++)
if (a[i]>a[j]) swap(a[i],a[j]);
// вывод 4 минимальных
cout<<"four min numbers: ";
for (int i=0; i<4; i++) cout<<a[i]<<" ";
cout<<endl;
system("pause"); // ожидание ввода с клавиатуры
return 0;
}