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

На языке vba для excel заполнить диапазон ячеек в4: н9 случайными положительными и отрицательными числами. упорядочить их по возрастанию по каждому столбцу.

👇
Ответ:
sevara17
sevara17
22.04.2023
Sub aaa()
    Randomize Timer
    For r = 4 To 9
        For c = 2 To 8
            Cells(r, c) = 10 * Rnd - 5
        Next c
    Next r
    For c = 2 To 8
        Set d = Range(Cells(4, c), Cells(9, c))
        d.Sort d, xlAscending
    Next c
End Sub

На языке vba для excel заполнить диапазон ячеек в4: н9 случайными положительными и отрицательными чи
4,7(26 оценок)
Открыть все ответы
Ответ:
FLINTUSHKA2007
FLINTUSHKA2007
22.04.2023

ответ: Алгоритм - это последовательность команд, которые выполняет исполнитель.

Конечность алгоритма - означает, что после завершения алгоритма всегда будет получен результат

Понятность алгоритма - насколько алгоритм прост для понимания

Точность алгоритма - это свойство заключается в том, что при задании одних и тех же исходных данных несколько раз алгоритм будет выполняться абсолютно одинаково и всегда будет получен один и тот же результат.

Офицер --> рядовой

Самолет --> пилот

Ездовая лошадь --> наездник

Спортивный судья ---> спортсмены

Кондуктор --> водитель автобуса

4,7(35 оценок)
Ответ:
kseshkaShkolnikova
kseshkaShkolnikova
22.04.2023
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
const
  n=5;
type
  Matrix=array[1..n,1..n] of integer;

procedure DummySchool(var a:Matrix);
begin
  Writeln('Ввод элементов матрицы');
  for var i:=1 to n do begin
    Write(n,' элементов строки ',i,': ');
    for var j:=1 to n do Read(a[i,j]);
    end;
  Writeln('Сформирована матрица ',n,'x',n);
  for var i:=1 to n do begin
    for var j:=1 to n do Write(a[i,j]:5);
    Writeln
    end
end;

begin
  var B:Matrix;
  DummySchool(B);
  var sn:=0;
  var sp:=0;
  for var i:=1 to n do
    for var j:=1 to n do
      if B[i,j]<0 then sn+=B[i,j]
      else
        if B[i,j]>0 then sp+=B[i,j];
  Writeln('Сумма отрицательных ',sn);
  Writeln('Сумма положительных ',sp)
end.

Тестовое решение:
Ввод элементов матрицы
5 элементов строки 1: 6 23 -5 13 9
5 элементов строки 2: 42 0 -38 16 37
5 элементов строки 3: -5 -18 3 11 8
5 элементов строки 4: 9 13 -11 0 3
5 элементов строки 5: 19 -17 0 15 5
Сформирована матрица 5x5
    6   23   -5   13    9
   42    0  -38   16   37
   -5  -18    3   11    8
    9   13  -11    0    3
   19  -17    0   15    5
Сумма отрицательных -94
Сумма положительных 232
4,7(81 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ