Question

Дан массив из n элементов.Написать программу, уменьшающую все элементы массива на еденицу

Answer 1

var
  A: array [1..10] of integer;
  i, n: integer;
begin
  for i := 1 to 10 do
  begin
      write('Введите A[', i, '] = ');
      readln(A[i]);
  end;
  writeln('Ваш массив.');
  for i := 1 to 10 do
    write(A[i]:4);
  writeln('Все элементы массива были уменьшены на 1.');
  for i := 1 to 10 do
  begin
      A[i] := A[i] - 1;
      write(A[i]:4);
  end;
end.

Answer 2

Блин, есть строки, которые мы даже еще не учили(

Answer 3

Какие например? Попробую переделать.

Answer 4

Byte SetLength randomize

Answer 5

Отредактировал. Byte поменял на integer. Randomize нужен для заполнения массива случайными числами. Сейчас сделал заполнение с клавиатуры(см. картинку). SetLength нужен был для того, чтобы можно было с клавиатуры задать размер массива(по условию "Дан массив из n элементов"? т.е. n вводилась с клавиатуры. Сейчас убрал это и сделал массив размером в 10 элементов.

Answer 6

Спасибо большое!Просто я, да и в целом класс не шарим в информатике)