var a: array[1..n] of real; i, j: integer; min, max: real; sum, product, harmonic: real;
begin {ввод массива} writeln('Данные массива:'); for i := 1 to n do begin a[i] := random(40) - 20; write(a[i], ' '); end; writeln();
{подсчет суммы и произведения и агригатов} sum := 0; for i := 1 to n do sum := sum + a[i]; writeln('average = ', sum / n);
{минимум и максимум} min := a[1]; for i := 1 to n do if min > a[i] then min := a[i]; writeln('min = ', min);
{подсчет суммы и произведения и агригатов} sum := 0; for i := 1 to n do if i mod 2 = 0 then {если нужен фильтр} sum := sum + a[i]; writeln('sum = ', sum); end.
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('n='); var a:=ArrRandom(n,-50,50); a.Println; var s:=a.Where(t->t.IsEven); s.Println; Writeln('Кол-во = ',s.Count); s:=a.Where(t->t.IsOdd).Reverse; s.Println; Writeln('Кол-во = ',s.Count); var imax:=a.IndexMax; Writeln('Номер максимального элемента- ',imax+1, ', его значение- ',a[imax]) end.
Северная Америка
Южная Америка
Евразия
Африка
Австралия
Антарктида
Объяснение:
В группе "Абзац", которая расположена в вкладке "Главная", нажмите кнопку "Маркированный список". после каждого пункта нажимать "ENTER"