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

130

222

Посмотреть ответы 2

Ответы на вопрос:

ssnz344

Информатика

4,6(68 оценок)

Program primer; procedure random(c,x,y: integer; var r: integer); begin case c of 1 : r: =random(abs(y)+abs(x)+1)+x; 2 : r: =random(abs(y)+abs(x)+1)+y; 3 : r: =random(y-x+1)+x; 4 : r: =random(x-y+1)+y; 5 : r: =random(x+y); 6 : r: =random(abs(x+(x+y); 7 : r: =x; 8 : r: =random(abs(abs(x)-abs((x); 9 : r: =random(abs(abs(x)-abs((y); end; end; var a: array of array of integer; i,j,x,y,m,p,pro,c: integer; begin randomize; pro: =1; writeln('кол-во строк и столбцов массива? //x,y\\ '); read(i,j); //размерность массива writeln('диапазон чисел //от x,до y\\ '); read(x,y); //и диапазон генерации вводятся с клавиатуры. if (x=y) then c: =7 else if(x< 0) and (y< 0) then if (x< y) then c: =8 else c: =9 else if (x=0) or (y=0) then if(x< 0) or (y< 0) then c: =6 else c: =5 else if(x< 0) or (y< 0) then if (x< y) then c: =1 else c: =2 else if (x< y) then c: =3 else c: =4; setlength(a,i); for m: =0 to i-1 do setlength(a[m],j); for m: =0 to i-1 do begin writeln(); for p: =0 to j-1 do begin random(c,x,y,a[m,p]); {заполнить матрицу случайными числами } if (m< > p) then pro: =pro*a[m,p]; { вычислить произведение элементов массива, лежащих вне главной диагонали.} write (a[m,p]: 3,' ': 3); end; end; writeln('pro=',pro); a: =nil; end.// abc pascal

maryxlenko

Информатика

4,8(11 оценок)

при алфавитном подходе к измерению количества информации известно, что если мощность алфавита n (количество букв в алфавите), а максимальное количество букв в слове, записанном с этого алфавита – m, то максимально возможное количество слов определяется по формуле l=nm. из условия известно количество слов (l=256) и количество букв в каждом слове (m=4). надо найти n из получившегося уравнения 256=n4. следовательно, n=4.ответ: 4 буквы.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.