Сформировать массив, в котором каждый элемент равен предыдущему, уменьшенному в n раз

@FAIRE_18 · Регистрация: 08.03.2015

Студворк — интернет-сервис помощи студентам

1. Сформируйте и выведите на экран массив из n элементов, где каждый элемент массива равен предыдущему, уменьшенному в n раз (n - порядковый номер элемента).

я тут составил, но все не правильно ..
исправьте ошибки, пожалуйста.

Pascal

program yusuf;
uses crt;
const n=9;
var a:array[1..n] of real ;
i,i1:integer;
begin
  randomize;
 
for i:=1 to n do
    begin
      a[i]:=random(100);
      write (a[i],' ');
     
a[i1]:=a[i-1]/i; 
    end;
  writeln;
  writeln ('a[i1]: ',a[i1]);
  readln;
end.

@_Chaffee · 08.03.2015, 21:20

Pascal

program yusuf;
uses crt;
const n=9;
var a:array[1..n] of real ;
i,i1:integer;
begin
 a[1]:=random(1,100);
 write(a[1],' ');
for i:=2 to n do
    begin
      a[i]:=random(100);
      write (a[i],' ');
a[i]:=a[i-1]/i; 
    end;
    writeln;
    for i:=1 to n do
  write (a[i]:2:0,' ');
  write;
 
end.

Опции темы