Массив

[Uoga]

Пожалуйста, помогите закончить решение задачи

Задача:

Написать программу для созданя и печати массива следующего вида:

80000000
78000000
67800000
56780000
45678000
34567800
23456780
12345678

Решение:

program n1;
type dvm: array [1..8;1..8] of integer;
var i;j integer
for i: 1 to 8 do begin;
for j: 1 to 8 do begin;
If i<j then a[i;j]=0 else a[i;j]:= ........как дальше???

[Vanta11a]

Не то делаете, вообще не то. Где begin? Где объявление a?

program n1;
var i;j integer; a: array [1..8;1..8] of integer;
begin
for i:=1 to 8 do
 for j:=1 to 8 do
  if i-j<0 then 
    a[i,j]:=8-(i-j)
  else
    a[i,j]:=0;
end;

Как-то так.

[Niro]

Действительно элементарных синтаксических ошибок куча, ну да разберётесь сами
Основную часть можно сделать как-то так:

for i:=1 to 8 do
  begin
     k:=8;
     for j:=1 to 8 do
       begin
          if i=j then t1:=1;
          if t1=1 then begin
		          mas[j,i]:=k;
       			  k:=k-1;
                       end
                       else mas[j,i]:=0;
      end;
  t1:=0;
  end;

Как-то так.

как-то не так)
работать как надо не будет,

if i-j<0 then
a[i,j]:=8-(i-j)

i=1
j=2
8-(i-j)=9

[Vanta11a]

Ок, не прав, не разность, а сумма.

program n1;
var i;j integer; a: array [1..8;1..8] of integer;
begin
for i:=1 to 8 do
 for j:=1 to 8 do
  if i-j<0 then 
    a[i,j]:=8+(i-j)
  else
    a[i,j]:=0;
end;