Квадратная матрица. Поиск чисел <7.5 выше глав. диагонали.

@Abibask0 · Регистрация: 12.12.2010

Студворк — интернет-сервис помощи студентам

Дана квадратная матрица 6х6. Найти количество чисел <7.5 среди элементов матрицы, лежащих выше главной диагонали. Найти столбец, в котором разность среднего арифметического и первого элемента больше величины С (С задать произвольно).
Печать в виде:
Исходная матрица
Количество чисел
Среднее арифметическое и число С
Номер столбца
Заранее благодарен.

@Quiet Snow · 09.04.2011, 21:35

Выкладываю отладочный вариант.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
DEFINT A-Z
DIM A(6, 6) AS SINGLE, C AS DOUBLE
DIM SrAr AS DOUBLE, Sr AS DOUBLE
   RANDOMIZE TIMER
   CLS
   PRINT "Ishodnaya matrica: "
   C = RND * 10
 FOR iy = 1 TO 6
    FOR ix = 1 TO 6
       A(ix, iy) = RND * 15
       PRINT USING " ##.##"; A(ix, iy);
    NEXT: PRINT
 NEXT
 LOCATE 15: PRINT "Srednee arifmeticheskoe stolbcov"
 FOR ix = 1 TO 6
    FOR iy = 1 TO 6
       IF ix > iy THEN COLOR 10 ELSE COLOR 12
       LOCATE iy + 8, ix * 6 - 5
       IF ix > iy AND (A(ix, iy) < 7.5) THEN k = k + 1: COLOR 14
       SrAr = SrAr + A(ix, iy)
       PRINT USING " ##.##"; A(ix, iy);
    NEXT: SrAr = SrAr / 6
    IF SrAr - A(ix, 1) > C THEN N = ix: Sr = SrAr
    COLOR 11
    LOCATE 16, ix * 6 - 5: PRINT USING " ##.##"; SrAr
    SrAr = 0
 NEXT: COLOR 14
PRINT "Kol-vo chisel : "; k: COLOR 7
IF N > 0 THEN PRINT "Srednee arifm. stolbca ="; Sr
PRINT "C ="; C
PRINT "Nomer stolbca : ";
IF N > 0 THEN PRINT N ELSE PRINT "Netu"

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Abibask0 3 / 3 / 2 Регистрация: 12.12.2010 Сообщений: 20

	Квадратная матрица. Поиск чисел <7.5 выше глав. диагонали. 09.04.2011, 15:32. Показов 1134. Ответов 1 Метки нет (Все метки) Дана квадратная матрица 6х6. Найти количество чисел <7.5 среди элементов матрицы, лежащих выше главной диагонали. Найти столбец, в котором разность среднего арифметического и первого элемента больше величины С (С задать произвольно). Печать в виде: Исходная матрица Количество чисел Среднее арифметическое и число С Номер столбца Заранее благодарен. 0

Квадратная матрица. Поиск чисел <7.5 выше глав. диагонали.

Решение