В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
shydik37
shydik37
13.01.2023 06:23 •  Информатика

Запишите названия инструментов.




Запишите названия инструментов. ​

Показать ответ
Ответ:
dddddkkke
dddddkkke
21.05.2021 02:45
// PascalABC.NET 3.3

begin
  var a:=ArrRandom(10,-50,50);
  writeln('1)');  a.Println;
  writeln('Среднее арифметическое четных элементов = ',
           a.Where(x->x mod 2=0).Average);
  var c:=ArrRandom(10,-50,50);
  writeln('2)');  c.Println;
  writeln('max+min = ',c.Max+c.Min);
  writeln('3)');
  var n:=ReadInteger('n =');
  var b:=SeqGen(n,random(5),x->x+random(1,5)).ToArray;
  b.Println;
  var s:=ReadInteger('s =');
  var k:=b.Where(x->x<s).Count;
  b:=b[:k]+Arr(s)+b[k:];
  b.Println;
end.

Пример:
1)
-24 12 -31 -5 -45 36 27 43 46 -6
Среднее арифметическое четных элементов = 12.8
2)
24 -13 -20 -47 16 27 -33 11 22 -33
max+min = -20
3)
n = 10
0 4 5 7 11 15 19 20 24 25
s = 10
0 4 5 7 10 11 15 19 20 24 25
0,0(0 оценок)
Ответ:
маша3055
маша3055
20.01.2020 00:17
// PascalABC.NET 3.3

const n=4;
begin
  Writeln('1 массив:');
  var a:=MatrRandom(n,n,-10,10); a.Println(6);
  Writeln('2 массив:');
  var b:=MatrRandom(n,n,-10,10); b.Println(6);
  var c:=a.ElementsByRow.Where(x->x<0)+b.ElementsByRow.Where(x->x<0)+
      a.ElementsByRow.Where(x->x=0)+b.ElementsByRow.Where(x->x=0)+
      a.ElementsByRow.Where(x->x>0)+b.ElementsByRow.Where(x->x>0);
  c.Println;
end.

Пример:
1 массив:
    -6    -3     1     8
     6    -3    -8     0
     8    10    -3    -9
     1    -9    -2     6
2 массив:
    -7    -1    -3     9
    -2    -6     5     2
     0    10     1     0
     5    -2     5     5
-6 -3 -3 -8 -3 -9 -9 -2 -7 -1 -3 -2 -6 -2 0 0 0 1 8 6 8 10 1 6 9 5 2 10 1 5 5 5
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота