Проанализировать представленный код, исправить логические и синтаксические ошибки - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Определить, какая задача стоит перед программистом.
programm 2C;
Var a:array[1..100] of integer;
i,k, n:integer;
Begin
read(n);
For i:=1 to n+1 do
begn
a[i]:=rand(10);
if a[i]<i then k:=k+1;
write(a[i],' ');
end;
writeln;
write('Итого: ',);
end.

Решение задачи: «Проанализировать представленный код, исправить логические и синтаксические ошибки»

textual
Листинг программы
var
  a:array[1..100] of integer;
  i,k,n:integer;
begin
  write('Введите размерность массива: ');  readln(n);
  randomize; 
  k:=0;
  for i:=1 to n do
    begin
      a[i]:=random(n);
      write(a[i], ' ');
      if a[i]>i then
        k:=k+1;
    end;
  writeln;
  write('Итого: ',k);
  readln;
end.

Объяснение кода листинга программы

  1. Объявляются переменные: a (массив), i, k, n (счетчик) типа integer.
  2. Пользователю предлагается ввести размерность массива.
  3. Задается случайное начальное значение для переменной k.
  4. Происходит заполнение массива a случайными числами от 0 до n-1.
  5. В каждой итерации цикла выводится значение элемента массива.
  6. Если значение элемента больше текущего значения i, то к переменной k прибавляется единица.
  7. После окончания цикла выводится число k, которое соответствует количеству элементов массива, больших чем i.
  8. Запрашивается ввод с клавиатуры для продолжения работы программы.

Оцени полезность:

7   голосов , оценка 4.143 из 5
Похожие ответы