Question

СРОЧНО!!! ИНФОРМАТИКА 50 БАЛЛОВ! ПАСКАЛЬ В одномерном массиве А(10) напечатать индексы элементов больших 10

Answer 1

Ответ:

var

 A:array[1..10] of integer;

 b: integer;

begin

 randomize;

 for var i := 1 to 10 do begin

   A[i]:=random(20);  

   end;

 for var i := 1 to 10 do begin    

   if a[i]>10 then

     write(i,' ');

     end;

end.

Answer 2

===== PascalABC.NET =====

begin

 var a := ArrRandom(10, 1, 20);

 a.Println;

 for var i := 0 to a.High do

   if a[i] > 10 then

     Print(i + 1)

end.

Answer 3

Для решения данной задачи на языке программирования Pascal, нужно выполнить следующие шаги:

1. Объявить одномерный массив А(10) и заполнить его значениями.
2. Пройтись по всем элементам массива и проверить, является ли элемент больше 10.
3. Если элемент больше 10, вывести его индекс.

Вот пример программы на Pascal, решающей данную задачу:

pascalCopy code
program FindElements;

const
  SIZE = 10;

var
  A: array[1..SIZE] of Integer;
  i: Integer;

begin
  { Заполнение массива A случайными значениями от 1 до 20 }
  Randomize;
  for i := 1 to SIZE do
    A[i] := Random(20) + 1;

  { Вывод элементов массива и их индексов }
  writeln('Массив A:');
  for i := 1 to SIZE do
  begin
    write(A[i]:4);

    { Проверка и вывод индекса элемента, если он больше 10 }
    if A[i] > 10 then
      write(' (Индекс: ', i, ')');

    writeln;
  end;
end.

Программа создает массив А(10) и заполняет его случайными значениями от 1 до 20. Затем она проходит по элементам массива, выводит каждый элемент и, если значение больше 10, также выводит его индекс в скобках.