Здраствуйте)Прошу помочь!!!!Мне нужно решить задачу, расписав её для паскаля, прошу очень подробно!!!Вот сама задача - Дан массив из N элементов.Написать программу, уменьшающую все элементы массива на единицу.

мне кидали вот эту program slom;var i,n,k:integer; a:array[1..100]of integer;for i:=1 to n dobeginread(k);a[i] := k - 1;write(a[i],' ');end;end.

пишет ожидался индетификатор

var i,n,k:integer; a:array[1..100]of integer;begin n :=3; for i:=1 to n do begin read(k); a[i] := k - 1; write(a[i],' '); end;end.

Брат!!!!Ура!!Спасибо я тебя люблю)

Хех)

var a: array of integer; // Объявление массива целых чисел  i, n: integer; // объявление целочисленных переменныхbegin  // Запросим с клавиатуры размер массива  // и запишем его в переменную n  write('введите n:');   readln(n);    // Теперь выделим память под n элементов массива  SetLength(a, n);    // теперь запросим с клавиатуры n чисел для массива  for i := 0 to n-1 do begin    write('a[', i, ']=');    readln(a[i]);  end;    // теперь в цикле уменьшим каждый элемент на единицу  for i := 0 to n-1 do     a[i] := a[i] - 1;    // распечатаем массив  for i := 0 to n-1 do     write(a[i], ' ');end.