![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() 1. Дан двумерный массив размерности 10х10. Заполнить его случайными числами на отрезке [-25,25]. Заменить на -1 элементы массива, лежащие выше главной диагонали. Вывести исходный массив и полученный результат на печать.
2. Дан двумерный массив размерности 10х10. Заполнить его случайными числами на отрезке [-25,25]. Определить номера строк массива, суммы элементов которых меньше суммы элементов, стоящих на главной диагонали. Вывести исходный массив и полученный результат на печать |
#2
|
||||
|
||||
![]() Наводящий вопрос - что такое "на главной диагонали"? Технарю ваших внутренних теоретических "закидонов" не понять, а гуглить, себе дороже
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
||||
|
||||
![]() Главная диагональ - из верхнего левого в правый нижний угол, т.е. элементы с координатами a[1,1] a[2,2] ... a[n,n]
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#4
|
||||
|
||||
![]() Оффтоп:
Да я в курсе :-), спрашивали подобное и раньше, просто хотелось от аффтора такое же услышать, но видно не судьба... Вот вариант решения первой задачи Код:
program zadanie1; uses crt; var m:array [1..10,1..10] of integer; {квадратная матрица} i,j,b: byte; {индексы матрицы} begin clrscr; randomize; {инициализация генератора случайных чисел} for i:=1 to 10 do {цикл заполнения матрицы} for j:=1 to 10 do begin b:= Random(52); if b = 0 then b:= 1; b:= b - 26; m[i,j]:= b; end; clrscr; writeln('Исходная матрица*'); writeln; for i:=1 to 10 do {цикл вывода матрицы на экран} begin for j:=1 to 10 do write(m[i,j]: 5); writeln; end; for i:=1 to 10 do {цикл замены элементов } for j:=1 to 10 do begin {если елемент выше гл диагонали, то присваиваем ему -1} if i<j then m[i,j]:= -1; end; writeln('Измененная матрица*'); writeln; for i:=1 to 10 do {цикл вывода матрицы на экран} begin for j:=1 to 10 do write(m[i,j]: 5); writeln; end; readkey; end. Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
username12 (27.10.2015)
|