Решение задачи

Краткая выдержка из текста работы (Аннотация)

Решение

Option Explicit

Sub pr22()

Dim a(10, 10) As Integer

Dim n As Integer, i As Integer, j As Integer, s As Integer, max As Integer

Dim t As Integer, k As Integer, p As Integer

n = Val(InputBox("Введите N"))

Range(Cells(1, 1), Cells(100, 100)).Select

Selection.Clear

For i = 1 To n

For j = 1 To n

...

Содержание работы

1. Сформировать матрицу вида

1 3 3 3 1

2 1 3 1 2

2 2 1 2 2

2 1 3 1 2

1 3 3 3 1

2. Вычислить в этой матрице сумму четных элементов.

3. Вычислить максимум из нечетных элементов в каждой строке матрицы.

4. Вычислить произведение элементов в нечетных столбцах.

5. Вычислить количество четных элементов выше главной диагонали.

Использованная литература

1. Нет

Другие похожие работы

• Дипломная - Локально Вычислительная сеть предприятия
• Курсовая - Списки и деревья
• Контрольная - Вывести по заданному трехзначному числу
• Курсовая - Решение уравнений с одной переменной (Pascal).
• Курсовая - Задача Прима-Каскала
• Контрольная - 7 программок на языке qBasic
• Курсовая - Объектом исследования является возможность создать программу расчета параметров (меры отклонения, мера разброса) линейной регрессии
• Курсовая - База данных на Delphi сведения о рабочих
• Курсовая - Разработать программное обеспечение для работы со строками
• Учебник - Программирование алгоритмов в среде Builder C++