Массивы и матрицы

16.12.2010, 18:26. **Показов** 1147. **Ответов** 2

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

Пожалуйста помогите, надо зачет сдавать, хоть что нибудь, а то нас загрузили по полной((
За ранее огромное спасибо!!))

1. Составить программу для подсчёта произведения и количества элементов линейной таблицы В, состоящей из 15 целых чисел, удовлетворяющих условию -3<=b(i)<=3 .
2. Составить программу, которая вычисляет сумму элементов неупорядоченного целочисленного массива М, состоящего из 12 неповторяющихся чисел, расположенных между её максимальным и минимальным элементами.
3. Составить программу, которая отыскивает среди пар элементов одномерного массива М те, разность между элементами которых есть величина наибольшая для данного массива.
4.1. Составить программу для подсчёта произведения элементов, удовлетворяющих условию -3<=b(i)<=3 , в двумерной целочисленной таблице А размерности m×n. Сформировать матрицу с помощью генератора случайных чисел и организовать её вывод на экран.

4.2. Задан двумерный массив А, состоящий из m строк и n столбцов. Составить программу, которая все элементы до минимального элемента удваивает, а после минимального уменьшает в 2 раза. Учесть, что значения в массиве не повторяются.

4.3. Сформировать квадратную матрицу порядка n по заданному образцу:
1 0 0 … 0 0 n
0 2 0 … 0 n-1 0
0 0 3 … n-2 0 0
…………………………..
0 2 0 … 0 n-1 0
1 0 0 … 0 0 n

Ну просто завал - помогите пожалуйста

@NEZZO · 16.12.2010, 20:46

Держи. На практике в прошлом году делал.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Program second;
Const n=6;
Var
   M:array [1..n] of integer;
   i,j,x,y,max:integer;
Begin
     Writeln('‚ўҐ¤ЁвҐ н«Ґ¬Ґ*вл ¬*ббЁў*');
     Write('-> ');
     For i:=1 to n do Read(M[i]);
 
 
    { For i:=1 to n do
         If M[i]>max then max:=M[i];   }
     max:=0;
     For i:=1 to n do
         For j:=1 to n do
             If (M[i]-M[j]>max) then
             Begin
                  x:=i; y:=j;
                  max:=M[i]-M[j];
             End;
     Writeln('Разность между элементами ',M[x],' и ',M[y],' найбольшая');
     Writeln; Readln;
End.

16.12.2010, 21:03

Спасибо, эт какая задача??

Добавлено через 2 минуты

Сообщение от NEZZO

('‚ўҐ¤ЁвҐ н«Ґ¬Ґ*вл ¬*ббЁў*'

Это что??

Новые блоги и статьи Все статьи Все блоги /
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

strelokkot

	Массивы и матрицы 16.12.2010, 18:26. Показов 1147. Ответов 2 Метки нет (Все метки) Пожалуйста помогите, надо зачет сдавать, хоть что нибудь, а то нас загрузили по полной(( За ранее огромное спасибо!!)) 1. Составить программу для подсчёта произведения и количества элементов линейной таблицы В, состоящей из 15 целых чисел, удовлетворяющих условию -3<=b(i)<=3 . 2. Составить программу, которая вычисляет сумму элементов неупорядоченного целочисленного массива М, состоящего из 12 неповторяющихся чисел, расположенных между её максимальным и минимальным элементами. 3. Составить программу, которая отыскивает среди пар элементов одномерного массива М те, разность между элементами которых есть величина наибольшая для данного массива. 4.1. Составить программу для подсчёта произведения элементов, удовлетворяющих условию -3<=b(i)<=3 , в двумерной целочисленной таблице А размерности m×n. Сформировать матрицу с помощью генератора случайных чисел и организовать её вывод на экран. 4.2. Задан двумерный массив А, состоящий из m строк и n столбцов. Составить программу, которая все элементы до минимального элемента удваивает, а после минимального уменьшает в 2 раза. Учесть, что значения в массиве не повторяются. 4.3. Сформировать квадратную матрицу порядка n по заданному образцу: 1 0 0 … 0 0 n 0 2 0 … 0 n-1 0 0 0 3 … n-2 0 0 ………………………….. 0 2 0 … 0 n-1 0 1 0 0 … 0 0 n Ну просто завал - помогите пожалуйста

Массивы и матрицы

Решение