Здраствуйте)Прошу помочь!!!!Мне нужно решить задачу, расписав её для паскаля, прошу очень...

Question

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

Answer 1

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.

Comments

Извините, а если не трудно можно написать уже готовую( решённую )задачу=)Просто болел я дно по информатике)

---

Буду очень благодарен)

---

какую?

---

эту

---

ток типо в виде алгоритма

---

мне кидали вот эту program slom;
var i,n,k:integer; a:array[1..100]of integer;
for i:=1 to n do
begin
read(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.

---

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

---

Хех)