Надо написать программу в паскаль, помогите пожалуйста пожалуйста пожалуйста!

Question

Надо написать программу в паскаль, помогите пожалуйста пожалуйста пожалуйста!

---

Answer 1

var

n,i,j, sum: integer;

mas: array[1..100,1..100] of integer;

begin

sum:=0;

readln(n);

for i:=1 to n do

begin

for j:=1 to n do

read(mas[i,j]);

readln;

end;

for i:=1 to n do

inc(sum, mas[i,i]);

for i:=1 to n do

for j:=1 to n do

if (mas[i,j]>sum) then dec(mas[i,j], sum);

writeln('Вывод');

for i:=1 to n do

begin

for j:=1 to n do

write(mas[i,j], ' ');

writeln;

end;

end.

Comments

Можно, щас переделаю

---

Стоп а n до скольки будет

---

Ну допустим максимум 10, но мы вводим с клавиатуры его количество

---

а сами значения, в матрице будут от скольки до скольки

---

Рандом, хоть какое

---

varn,i,j, sum: integer;mas: array[1..100,1..100] of integer;beginrandomize;sum:=0;readln(n);for i:=1 to n dobeginfor j:=1 to n domas[i,j]:=random(10)+1;end;for i:=1 to n doinc(sum, mas[i,i]);for i:=1 to n dofor j:=1 to n doif (mas[i,j]>sum) then dec(mas[i,j], sum);writeln('Вывод');writeln('Сумма главной диагонали = ', sum);for i:=1 to n dobeginfor j:=1 to n dowrite(mas[i,j], ' ');writeln;end;end.n > 99 НЕ ВВОДИТЬ

---

Получилось! Спасибо большое! Как я могу отблагодарить??

---

Ни как, мне просто делать нечего вот и сижу на сайте втыкаю :)

---

Ты огромный молодец, сейчас на этом направлении можно хорошо зарабатывать)

---

Да, знаю я то и хочу этим заниматься, но лень иногда + реальные проекты сложней, чем эти вот задания