ПОМОГИТЕ
КТО ПОМОЖЕТ ДАМ 90 БАЛЛОВ
ИНФОРМАТИКА ПАСКАЛЬ

программа, которая распечатывает в строку одномерный массив длинной N следующим образом:
A(1)=190, A(2)=180 потом а3 170 итд
НУЖНО НАПИСАТЬ
ПОМОГИТЕ СРОЧНО

Выдает такое var a:array[1..100] of integer; n,i:integer;beginwrite('n=');readln(n);a[1]:=190;for i:=2 to n do a[i]:=a[i]-10;writeln('Полученный массив:');for i:=1 to n do write(a[i],' ');writeln;end.

Не то

190 -10 -10

Вот при вводе n=3

А должно 170

Спасибо, затупил

Дружище, помоги еще с одной

составить программу, которая заполняет 11 элементов одномерного массива случайным образом, вычисляет их сумму, определяет min элемент в массиве

const n=11;var x : array[1..n] of integer; s,i,min : integer;beginRandomize; writeln('Сгенерированный массив:');for i:=1 to n do begin x[i]:=random(21)-10; write(x[i],' '); end;writeln; s:=0;min:=x[1];for i:=1 to n do begin if x[i]<min then min:=x[i]; s:=s+x[i] end;writeln('s = ',s,' min=',min);end.

Конст можешь устранить ?

Program z1;  const n = 30;  Var i:integer;  a: array [1..n] of integer;Begin  a[1]:=190;  i:=2;  While i<=n do    begin      a[i]:=a[i-1] - 10;      i:=i+1;    end;   for i:=1 to n do      write('A[',i,']=',a[i],' ');End.