var a: array[1..nmax] of integer; i, n, j, count: integer; mini, maxi: integer; min, max: real; temp: real; sum, product, harmonic: real; k: integer;
begin {ввод массива} n := nmax; if handsfree then n := random(nmax - 5) + 5 else begin write('n = '); readln(n); end;
writeln('Данные массива:'); for i := 1 to n do begin if handsfree then begin a[i] := random(random_max - random_min) + random_min; write(a[i], ' '); end else readln(a[i]); end; writeln();
{подсчет суммы и произведения и агригатов и кол-ва} sum := 0; product := 1; for i := 1 to n do begin sum := sum + a[i]; if a[i] mod 3 = 0 then {если нужен фильтр} product := product * a[i]; end; writeln('1) sum = ', sum); writeln('2) product = ', product);
{подсчет суммы и произведения и агригатов и кол-ва} sum := 0; count := 0; for i := 1 to n do begin if i mod 2 = 1 then {если нужен фильтр} begin count := count + 1; sum := sum + a[i]; end; end; writeln('3) average (selected) = ', sum / count);
{подсчет суммы и произведения и агригатов и кол-ва} sum := 0; product := 1; count := 0; for i := 1 to n do begin if i mod 2 = 0 then {если нужен фильтр} sum := sum + a[i]; if a[i] < 0 then {если нужен фильтр} product := product * a[i]; if a[i] mod 2 = 1 then {если нужен фильтр} count := count + 1; end; writeln('4) count = ', count); writeln('4) sum = ', sum); writeln('4) product = ', product); end.
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace 1
{
class Program
{
static void Main(string[] args)
{
bool Mistake = false;
int N = 0;
do
{
Console.Write("Введите количество слагаемых: ");
try
{
N = Convert.ToInt32(Console.ReadLine());
Mistake = false;
}
catch (FormatException)
{
Mistake = true;
Console.Clear();
Console.WriteLine("Неверный формат ввода! Повторите попытку!");
Console.WriteLine();
}
}
while (Mistake == true);
Sum(N);
}
static void Sum(int N)
{
double[] Elements = new double[N];
double Result = 0;
for (int i = 0; i < N; i++)
{
Console.WriteLine();
Console.Write("Введите " + (i + 1) + " число: ");
try
{
Elements[i] = Convert.ToDouble(Console.ReadLine());
}
catch (FormatException)
{
Console.WriteLine("Неверный формат ввода!");
}
}
for (int j = 0; j < N; j++)
{
Result += Elements[j];
}
Console.WriteLine();
Console.Write("Сумма = " + Result);
Console.ReadKey();
}
}
}
//Если программа не запускается, то обновите версию
const
handsfree = true;
nmax = 100;
random_min = -28;
random_max = 27;
var
a: array[1..nmax] of integer;
i, n, j, count: integer;
mini, maxi: integer;
min, max: real;
temp: real;
sum, product, harmonic: real;
k: integer;
begin
{ввод массива}
n := nmax;
if handsfree then
n := random(nmax - 5) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
else
readln(a[i]);
end;
writeln();
{подсчет суммы и произведения и агригатов и кол-ва}
sum := 0;
product := 1;
for i := 1 to n do
begin
sum := sum + a[i];
if a[i] mod 3 = 0 then {если нужен фильтр}
product := product * a[i];
end;
writeln('1) sum = ', sum);
writeln('2) product = ', product);
{подсчет суммы и произведения и агригатов и кол-ва}
sum := 0;
count := 0;
for i := 1 to n do
begin
if i mod 2 = 1 then {если нужен фильтр}
begin
count := count + 1;
sum := sum + a[i];
end;
end;
writeln('3) average (selected) = ', sum / count);
{подсчет суммы и произведения и агригатов и кол-ва}
sum := 0;
product := 1;
count := 0;
for i := 1 to n do
begin
if i mod 2 = 0 then {если нужен фильтр}
sum := sum + a[i];
if a[i] < 0 then {если нужен фильтр}
product := product * a[i];
if a[i] mod 2 = 1 then {если нужен фильтр}
count := count + 1;
end;
writeln('4) count = ', count);
writeln('4) sum = ', sum);
writeln('4) product = ', product);
end.