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

It специалист, чем он полезен обществу? ответьте побыстрее

👇
Ответ:
georggeorg
georggeorg
12.11.2020

Лично я считаю, что без программистов сложно представить современную жизнь. Интернет играет огромную роль в в развитии бизнеса и не только. Я считаю, что профессия программиста-самая интересная и востребованная. Они создают из груды металла разумные машины, которые облегчают труд людей.

4,4(81 оценок)
Открыть все ответы
Ответ:
hellkrest1
hellkrest1
12.11.2020
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ReadInteger('Количество строк в массиве:');
  var n:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** Исходный массив [',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-50,50);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var b:=a.Rows.SelectMany(x->x).ToArray;
  var nn:=ReadInteger('1. Введите число N:');
  Write('Максимальный из элементов, не превосходящий N');
  if nn<b.Min then Writeln(', не существует')
  else Writeln(', равен ',b.Where(x->x<=nn).Max);
  Write('2. Максимальный элемент в массиве [');
  var i:=b.IndexMax;
  Writeln(i div n+1,',',i mod n+1,']=',a[i div n,i mod n])
end.

Пример
Количество строк в массиве: 5
Количество столбцов в массиве: 9
*** Исходный массив [5,9] ***
 -18 -13  16  23 -14 -30 -12  -2  -2
 -34  11 -47 -35  20  44  29 -36  46
   2 -28 -35  -6  38  -9  -2   8 -10
   3  16   5 -20   8   5  48   7 -33
 -25   3  30 -35 -10  22 -11  42 -44

1. Введите число N: 31
Максимальный из элементов, не превосходящий N, равен 30
2. Максимальный элемент в массиве [4,7]=48
4,7(89 оценок)
Ответ:
nikitagarin2
nikitagarin2
12.11.2020
1. Вот так сейчас решают подобные задачи:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.

Тестовое решение:
-0.00136006072493969

2. А вот так учат писать это же школьные учителя:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
  m:array[1..100] of real;
  i,k:integer;
  s:real;

begin
  s:=0;
  k:=0;
  for i:=1 to 100 do begin
    m[i]:=sin(i)*cos(i);
    if m[i]<>0 then begin
      s:=s+m[i];
      k:=k+1
      end
    end;
  Writeln(s/k)
end.

Тестовое решение:
-0.00136006072493969
4,7(55 оценок)
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ