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

Вывести имена, размер, дату создания и атрибуты файлов с расширением bmp и расширением jpg каталога Windows. Куда выводить – на экран и в текстовый файл.
Сортировать – по размеру. Условие отбора – размер более 50000.
сделать надо в PowerShell

Показать ответ
Ответ:
danilasavap0a3nj
danilasavap0a3nj
29.04.2023 20:27
В C++:
#include <iostream>
#include <ctime>
#include <iomanip>
int main()
{
    using namespace std;

    //размерность матрицы
    const int N = 5;
    int matrix[N][N];
    srand(time(0));
    int i, j;

    //как-нибудь заполняем матрицу
    for (i = 0; i < N; i++)    
        for (j = 0; j < N; j++)
            matrix[i][j] = rand() % (N * N + 1) - (N * N / 2);

    //вывод исходной матрицы на экран
    for (i = 0; i < N; i++)
    {
        for (j = 0; j < N; j++)
            cout << setw(4) << matrix[i][j];
        cout << endl;
    }
   
    //проверка, есть ли вообще числа, чтобы умножать
    int p = 0;
    for (i = 0; i < N; i++)
        for (j = 0; j < N; j++)
            if (i > j && i > N - j - 1 && matrix[i][j] < 0)
            {
                p = 1;
                break;
            }

    //подсчёт требуемого произведения
    for (i = 0; i < N; i++)
        for (j = 0; j < N; j++)
            if (i > j && i > N - j - 1 && matrix[i][j] < 0)
                p = p * matrix[i][j];

    //нахождение модуля произведения
    if (p < 0)
        p = -p;

    //вывод этого значения на экран
    cout << "Multiplication: " << p << endl;
    return 0;
}
0,0(0 оценок)
Ответ:
Паитаоаипа
Паитаоаипа
02.01.2021 09:33
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
  var a:=SeqRandom(ReadInteger('n='),-20,20)
    .Select(i->real(i)).ToArray;
  a.Println;
  var b:=a[0]*a.Skip(1).Where(x->x>0).Aggregate(1.0,(p,x)->p*x);
  Writeln(b);
end.

Тестовое решение:
n= 15
14 17 5 -1 9 -18 2 3 -20 5 -10 0 4 -1 -8
1285200

Пояснения по каждому оператору
1. Запрашивается количество элементов в последовательности n, генерируется последовательность из n целых чисел в диапазоне от -20 до 20, затем элементы последовательности преобразуются в вещественное представление и образуют динамический массив а.
2. Элементы массива а выводятся на экран.
3. Первый элемент массива умножается на произведение остальных положительных элементов и результат присваивается переменной b.
4. Значение переменной b выводится на экран.
В целях небольшого упрощения предполагается, что n>1 и что среди элементов массива, за исключением первого, имеется хотя бы один положительный элемент. Это связано с тем, что в задании отсутствует описание действий в случае, если вышеописанное предположение окажется неверным.

Переход к вещественному представлению чисел связан с обходом переполнения разрядной сетки при целочисленном умножении для больших значений n.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота