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

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

Решение

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. Нет

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

• Курсовая - Объектно-ориентированное программирование
• Контрольная - Программирование на языке высокого уровня (ПЯВУ)
• Курсовая - Подсистема исследования процесса цементации распылителя форсунки дизельного двигателя
• Контрольная - 4 программы на языке Паскаль
• Курсовая - Формирование массива содержащего сведения о телефонах абонентов
• Курсовая - Состояние российского денежного рынка
• Учебник - Основы алгоритмизации и программирования
• Дипломная - Проектирвоание автоматизированной информационной системы отдела продаж интернет-магазина
• Курсовая - Интегрирование
• Курсовая - Расширенное дельта-правило