Question

Правильно ли написано?: program ntyn; var i, s : integer; a : array [1..10] of integer; begin s:=0; for i:= 1 to 10 do a[i]:= random (5)+1; for i:= 1 to 10 do write (' в квартире на ' , i , ' проживает ' , a[i] , ' жителей ') end.

Answer 1

Ошибок я не заметила, должно быть правильно, но я не вижу кода кнопок которые программируются, если его и не должно быть, тогда всё норм.

Answer 2

Программа, которую вы предоставили, написана на языке Pascal и содержит ошибку. В Pascal, как и во многих других языках программирования, каждый оператор должен заканчиваться точкой с запятой. В вашем случае, отсутствует точка с запятой после последнего оператора write.

Вот исправленный вариант программы:

pascalCopy code
program ntyn;

var
  i, s: integer;
  a: array [1..10] of integer;

begin
  s := 0;
  for i := 1 to 10 do
    a[i] := random(5) + 1;

  for i := 1 to 10 do
    write('В квартире на ', i, ' проживает ', a[i], ' жителей. ');

  // Добавлено закрытие программы
  readln;
end.

В этой исправленной версии я добавил точку с запятой после оператора write и также добавил readln в конце программы, чтобы остановить выполнение программы и дать возможность увидеть вывод перед закрытием консоли.