uses crt;
const n=10;
m=100;
var matrix:array[1..10,1..10]of word;
i,j,k,sum:word;
begin
clrscr;
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
matrix[i,j]:=m+random(m);
write(' ',matrix[i,j]);
end;
writeln;
end;
for i:=1 to n do
sum:=sum+matrix[i,n+1-i];
writeln(sum);
readkey;
end.
работе с оператором Рандом и массивом
С помощью оператора Random, ормируется значение от 100 до 200 и присваиваете масиву размер 10х10, найти сумму побочной диогонали....Я эту задачу не смог решить...:mad:
Можешь обьяснить попорядку все строки кроме простых операторв...
не, ребят, я всё понимаю! но не такое ведь! это форум программистов или студенческая комунна с коллективным выполнением домашних заданий? блин, задача ж вообще элементарная. тут никаких знаний программирования даже не надо!
можно конечно вместо readkey использовать readln, все зависит от паскаля. кстати все, что до
Код:
for i:=1 to n do
sum:=sum+matrix[i,n+1-i];
sum:=sum+matrix[i,n+1-i];
формирование матрицы, а сам этот код и есть подсчет суммы элементов составляющих побочную диагональ, т.е. вот к примеру матрица
a11 a12
a21 a22
тогда a11 и a22 составляют главную диагональ матрицы, а a21 и a12 - побочную диагональ. все как видишь просто.
[quote=<SCORP>]не, ребят, я всё понимаю! но не такое ведь! это форум программистов или студенческая комунна с коллективным выполнением домашних заданий? блин, задача ж вообще элементарная. тут никаких знаний программирования даже не надо![/quote]
ну и для чего ты это здесь запостил? конечно это сообщение должно быть перенесено в раздел "студентам", но переместить его могут только модераторы, так что если по-твоему здесь есть нарушение правил форума, то обращайся к модераторам, а не пиши что все это элементарно.
Студенты - раздел для халявщиков, они и знать не хотят, только решите за них, но есть исключения конечно.
<SCORP>, большая просьба больше не флудить и выражать ваши чувства через опцию жалоба на сообщение или приват.
Спасибо всем...