М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ANT1XA1P
ANT1XA1P
14.03.2022 05:49 •  Информатика

1. найти произведение чётных элементов целочисленного одномерного массива, состоящего из 19 элементов. элементы массива заданы датчиком случайных чисел на интервале [-14,24] 2. массив а целочисленный. найти среднее арифметическое его элементов с нечетными индексами. размер 15 элементов, элементы массива заданы датчиком случайных чисел на интервале [-34,42]

👇
Ответ:
vadimfarxudinov
vadimfarxudinov
14.03.2022
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var a:=ArrRandom(19,-14,24); a.Println;
  Writeln('П=',a.Where(t->t.IsEven).Aggregate(int64(1),(x,y)->x*y))
end.

Пример
3 -4 -9 12 20 19 -8 -10 18 2 2 18 1 -6 -13 18 7 14 11
П=150493593600

№2

begin
  var n:=15;
  var a:=ArrRandom(n,-32,42); a.Println;
  Writeln('Ср.арифм: ',Range(1,n,2).Select(t->a[t-1]).Average:0:3)
end.

Пример
18 -29 40 32 23 1 14 15 20 33 -5 -19 3 21 6
Ср.арифм: 14.875
4,6(98 оценок)
Открыть все ответы
Ответ:
лев234325
лев234325
14.03.2022
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const
  m = 10;

var
  t: array[1..m] of integer;
  i, n, nm, sm: integer;

begin
  //Заполняем массив сл.числами и подсчитываем
  //количество элементов и среднее арифметическое
  //согласно условию задачи
  for i := 1 to m do
  begin
    t[i] := random(-20, 20);write(t[i]:4);
    if (i > 1) and (i <= m) then
      if t[i] > t[i - 1] then n := n + 1
      else if t[i] < t[i - 1] then begin
        sm := sm + t[i];nm := nm + 1;
      end;
  end;
  writeln;
  writeln('число элементов больших предыдущего = ', n);
  writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);  
 
end.

Тестовое решение:
    6  13  19   8 -19 -11 -20 -15 -19 -13
число элементов, больших предыдущего = 5
среднее арифметическое элементов, меньших предыдущего = -12.5
4,6(68 оценок)
Ответ:
yarikkuisluiy
yarikkuisluiy
14.03.2022
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var m,n:integer;
  Write('Количество строк и столбцов матрицы: ');
  Read(n,m);
  var a:=MatrixRandom(n,m,10,99);
  for var i:=0 to n-1 do begin
    for var j:=0 to m-1 do Print(a[i,j]);
    Writeln
    end;
  var p:=ReadInteger('Введите число Р:');
  var b:array of integer;
  SetLength(b,4*m);
  var k:=0;
  for var i:=n-p to n-1 do
    for var j:=0 to m-1 do
      if a[i,j] mod 4=0 then begin
        b[k]:=a[i,j]; Inc(k)
        end;
  SetLength(b,k);
  b.Print
end.

Тестовое решение:
Количество строк и столбцов матрицы: 6 8
67 70 68 72 38 72 96 38
49 75 24 55 72 63 21 40
72 12 60 22 74 30 13 45
22 45 39 24 35 97 64 31
76 62 15 94 56 28 31 13
41 67 75 37 67 13 25 20
Введите число Р: 4
72 12 60 24 64 76 56 28 20
4,5(1 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ