Технический форум

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Массив (http://www.tehnari.ru/f41/t51867/)

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

Задача:

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

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]:= ........как дальше???;(

Цитата:

Сообщение от julija (Сообщение 522689)

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

Знаете... тут не про "закончить" речь. Тут даже и не начато. Пять строчек всего - а в каждой по несколько ошибок. Потому прежде всего разберем Ваш код:

type dvm: array [1..8,1..8] of integer;
var i,j: integer;
a:dvm;
begin
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]:=

Ну а теперь посмотрите, как выглядит рабочая программа. Как говорится, "почувствуйте разницу":

Код:

program n1;

var

 i,j:integer;

 a:array [1..8,1..8] of integer;

begin

 for i:=1 to 8 do

  begin

   for j:=1 to 8 do

    begin

     if j>i then a[i,j]:=0 else a[i,j]:=8-i+j;

     write(a[i,j]:3);

    end;

   writeln;

  end;

 readln

end.