Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 30.10.2012
Сообщений: 24

Вывести элементы, которые стоят по краям матрицы, сохраняя их положение в пространстве.

30.10.2012, 11:38. Показов 1423. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
:Описать двумерный массив размерностью 7х7. Заполнить массив случайными значениями из диапазона от -5 да 10. Вывести лишь те элементы, которые стоят по краям матрицы, сохраняя их положение в пространстве. Решить через процедуры и функции
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
30.10.2012, 11:38
Ответы с готовыми решениями:

Вывести лишь те элементы, которые стоят по краям матрицы, сохраняя их положение в пространстве
Описать двумерный массив размерностью 7х7. Заполнить массив случайными значениями из диапазона от -5 да 10. Вывестти лишь те элементы,...

Вывести те элементы, которые стоят на каждом пятом месте в исходном массиве.
Сформировать целочисленный массив на отрезке , содержащий 40 элементов. Вывести полученный массив на экран. Затем вывести те элементы,...

Все элементы матрицы, которые не кратны 4 и стоят в четных строках массива, уменьшить на 10
Ввести двумерный массив ANxM . Все элементы, которые не кратны 4 и стоят в четных строках массива уменьшить на 10. Массив вывести до и...

1
 Аватар для ermolay
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
30.10.2012, 12:10
Лучший ответ Сообщение было отмечено alkotester как решение

Решение

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
const
  n=7;
  
type
  arr=array[1..n,1..n] of integer;
  
procedure init(var a: arr; n: integer);
var i,j: integer;
begin
  for i:=1 to n do
    for j:=1 to n do
      a[i,j]:=random(21)-10;
end;
 
procedure outPut(var a: arr; n: integer);
var i,j: integer;
begin
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
end;
 
procedure change(var a: arr; n: integer);
var i,j,tmp: integer;
begin
  for i:=1 to n do
  begin
    for j:=1 to n do
      if (i=1)or(i=n)or(j=1)or(j=n) then write(a[i,j]:4)
        else write('    ');
    writeln;
  end;
end;
 
var
  ar: arr;
begin
  writeln('Исходная матрица:');
  init(ar,n);
  outPut(ar,n);
  writeln('Полученная матрица:');
  change(ar,n);
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
30.10.2012, 12:10
Помогаю со студенческими работами здесь

Вывести элементы массива, которые стоят на нечетных номерах по убыванию или возрастанию
В общем дан одномерный массив из 23 элементов. Нужно вывести элементы массива, которые стоят на нечетных номерах по убыванию или...

Заменить все нулевые элементы матрицы, которые стоят на побочной диагонали и выше нее, на 1
Дана квадратная матрица NxN. Заменить все 0 элементы на 1, которые стоят на побочной диагонали и выше нее.

Превратить в нули элементы по краям матрицы
Ввести квадратную матрицу nxn.вывести ее по строкам на экран.превратить в нули все элементы A по краям матрицы и снова вывести на экран.

Массив: Вывести на экран все элементы матрицы A с указанием индексов, которые больше максимального элемента матрицы B
Целочисленные матрица A(mxn) и B(jxk) заполнить случайными числами в диапозоне от -5 до 13. Обе матрицы вывести на экран в виде таблцы....

Матрица. Вывести вектор сумм элементов строк. Вывести элементы матрицы, которые встречаются в матрице более 3 раз
Дана вещественная матрица размером 4х6 (ее элементы нужно ввести с клавиатуры). Упорядочить ее столбцы по убыванию суммы их элементов. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
Контроль уникальности заводского номера - вариант №2
Maks 24.03.2026
В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++
8Observer8 24.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
Жизнь в неопределённости
kumehtar 23.03.2026
Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения.
anaschu 23.03.2026
geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .
Контроль уникальности заводского номера - вариант №1
Maks 23.03.2026
Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения
anaschu 22.03.2026
e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
Программный отбор элементов справочника по группе
Maks 22.03.2026
Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru