// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк (столбцов) в массиве:'); Writeln('*** Исходный массив ***'); var a:=MatrRandom(n,n,-50,50); a.Println(4); Writeln(4*a.ColCount*'-'); var s:=a.ElementsByRow; Writeln('Сумма элементов массива ',s.Sum); Writeln('Произведение отрицательных элементов ', s.Where(t->t<0).Aggregate(BigInteger(1),(p,q)->p*q)); Writeln('Количество положительных элементов ', s.Where(t->t>0).Count) end.
using namespace std;
int main() {
int n;
cin >> n;
int a[n];
cin >> a[0];
int s(0), min=a[0];
for (int i(1); i<n; i++) {
cin >> a[i];
if (a[i]<min) { s=0; min=a[i]; }
else s+=a[i];
}
cout << "s = " << s << "\n";
return 0;
}
------------------------------------
#include <iostream>
using namespace std;
int main() {
double a[5];
double s(0.0);
for (int i(0); i<5; i++) {
cin >> a[i];
s+=a[i];
cout << "avg = " << s/(i+1) << "\n";
}
return 0;
}