Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Ymerla
0 / 0 / 1
Регистрация: 25.06.2012
Сообщений: 62
#1

Массив: в матрице элементы, стоящие на главной диагонали, замените минимальным элементом, лежащим ниже главной диагонали. - Pascal ABC

25.05.2013, 09:41. Просмотров 559. Ответов 2
Метки нет (Все метки)

помогите пожалуйста.
в матрице a(5x5) элементы стоящие на главной диагонали,замените минимальным элементом,лежащим ниже главной диагонали.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.05.2013, 09:41
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Массив: в матрице элементы, стоящие на главной диагонали, замените минимальным элементом, лежащим ниже главной диагонали. (Pascal ABC):

В матрице В все элементы, стоящие ниже главной диагонали заменить на нуль
В матрице В все элементы, стоящие ниже главной диагонали заменить на нуль....

Определить элементы матрицы, стоящие ниже главной диагонали
дана программа uses crt; const n=4; var m1,m2:arrayof real; i,j:integer;...

Присвоить элементам, лежащим ниже главной диагонали матрицы, значение 0
Составить программу, присваивающую диагональным(главная диагональ) элементам...

В квадратной матрице заменить нулями все элементы, расположенные на главной диагонали и выше главной диагонали
В квадратной матрице заменить нулями все элементы, расположенные на главной...

Диагонали в матрице выше главной и ниже главной поменять местами
дана матрица . нужно что бы диагонали выше главной и ниже главной поменялись...

Определить сумму элементов выше главной диагонали и ниже главной диагонали. какая из них больше
в матрице размером 5х5 определить сумму элементов выше главной диагонали и ниже...

2
Puporev
Модератор
54149 / 41782 / 28889
Регистрация: 18.05.2008
Сообщений: 98,331
25.05.2013, 10:36 #2
Лучший ответ Сообщение было отмечено Ymerla как решение

Решение

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
uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
    i,j,mn:integer;
begin
randomize;
writeln('ÈñõîäГ*Г*Гї Г¬Г*òðèöГ*:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    if(i=2)and(j=1) then mn:=a[i,j]
    else if (j<i)and(a[i,j]<mn) then mn:=a[i,j];
    write(a[i,j]:4);
   end;
  writeln
 end;
writeln('ГЊГЁГ*ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ Г*èæå ГЈГ«Г*ГўГ*îé äèГ*ГЈГ®Г*Г*ëè=',mn);
writeln('Г‡Г*ìåГ*Г* ýëåìåГ*ГІГ®Г* ГЈГ«Г*ГўГ*îé äèГ*ГЈГ®Г*Г*ëè');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j=i then a[i,j]:=mn;
    write(a[i,j]:4);
   end;
  writeln
 end
end.
0
Ymerla
0 / 0 / 1
Регистрация: 25.06.2012
Сообщений: 62
25.05.2013, 18:56  [ТС] #3
спасибо большое. Есть еще одна просьба помочь нарисовать блок-схему, пожалуйста.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.05.2013, 18:56
Привет! Вот еще темы с решениями:

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

Обнулить элементы матрицы, лежащие одновременно ниже главной диагонали и выше побочной диагонали
Дана квадратная матрица порядка М. Обнулить элементы матрицы, лежащие...

Дан двумерный массив А[n,m]. Обнулить элементы матрицы, стоящие выше главной диагонали. Вывести новый массив на печать.
1. Дан двумерный массив А. Обнулить элементы матрицы, стоящие выше главной...

Замените в матрице минимальный элемент на среднее арифметическое элементов главной диагонали
напишите программу формирования массива 5*5 с помощью датчика случайных чисел....


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru