Вопросы от Ромарио! Опции

[Romario]

Начинаю серьёзно учить Паскаль и вот решил создать и пихать сюда все неясности, если вы конечно не против
Первые вопросы:

• Как в Паскале менять цвета?
  
• Как  --//-- создать таблицу и что-нить в ней написать.
  
• И может кто-нить меня раздуплит в массивах? ;D

[AlaRic]

Вот тебе №1 в разделе матриц:

Код

program n1;
const n=5;
var
a:array[1..n,1..n] of integer;
i,j,k:integer;
arif,s:real;
begin
s:=0;k:=0;
writeln('ввести матрицу');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for i:=1 to n do
for j:=i to n do
if a[i,j]>0 then
begin
k:=k+1;
s:=s+a[i,j];
end;
arif:=s/k;
write('ответ ',arif:7:2);
end.

 

Остальное лень  ;D ;D