Две задачи на паскале.

[masterlomaster]

В вузе задали( сразу же. А как делать незнаю обьесните пожалуйста

задание 1
Разработать паскаль програму, позволяюшую для заданого массива A(5.5)
изменить часть матрицы, находящуюся под главной диагональю слудуюшим образом: если элементы A[i,j] этой части матрицы больше элемента A[j,i], то задать элементу A[i,j] новое значение, равное полу сумме двух элементов.
продумать дружественый интерфейс пользователя.



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

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

[ОДИНОЧЕСТВО В СЕТИ]

1)

for i:=1 to 5 do
for j:=1 to 5 do
if i>j then begin 
if a[i,j]>A[j,i] then a[i,j]:=a[i,j]/2+a[j,i]/2;
end;

2)

var a,x:integer;
 i,s:integer;

begin
 writeln('введите целое число');
 readln( a ); x:=a;
 s:=0;
 while ( x<>0 ) do 
 begin
   s := s + (x mod 10);
   x := x div 10;
 end;
writeln( 'Сумма цифр числа ',a,' = ', s );
end.

ну а с интерфейсом как нить сами разбирайтесь

[masterlomaster]

да вот читаю книгу турбо паскаль пытаюсь легкие задачки решать. вообще первый раз вижу этот паскаль. а завтра работу надо здавать. что значит дружественный интерфейс?

[masterlomaster]

я просто в шоке. как так сразу масивы задают. научили бы хотябы сначало 2+2 складывать)))

[ОДИНОЧЕСТВО В СЕТИ]

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

ru.Wikipedia.org

[masterlomaster]

первая задача не очень понятная(

[ОДИНОЧЕСТВО В СЕТИ]

допиши ввод и вывод массива и станет понятно(я думаю в книжке в твоей есть)

[masterlomaster]

вообще реально стань отличным програмистом. если допустим в матиматике не ахти?)

[russian-stalker]

В зависимости от того что программировать...

[masterlomaster]

одиночество в сети спасибо тебе большое)