Контрольная на тему Решение задачи. Контрольная работа

Автор: Алмаз

Тип работы: Контрольная

Предмет: Программирование

Страниц: 3

Год сдачи: 2005

ВУЗ, город: СИБиИТ

Выдержка

Решение 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. Вычислить количество четных элементов выше главной диагонали.

Литература

Нет