Question

Напишите программу на Паскале, которая вводит и печатает массив из 10 целых чисел, вводит целое число К и выводит номер элемента массива, который равен числу К или выводит 0, если в массиве нет числа, равного К. Даю 20 баллов

Answer 1

Program fantscrin;

 Var a: array [1..10] of integer;

     i,k,g:integer;

Begin

 for i:=1 to 10 do

   readln(a[i]);

 for i:=1 to 10 do

   write(a[i], '  ');

 

 writeln('');

 write('К = '); readln(k);

 g:=0;

 for i:=1 to 10 do

   if(a[i] = k) then g:=i;

   

 writeln(g);

End.

Answer 2

Конечно, вот программа на языке Паскаль, которая выполняет описанные вами действия:

pascalCopy code
program FindNumberInArray;

const
  arraySize = 10;

var
  numbers: array[1..arraySize] of Integer;
  K: Integer;
  i: Integer;
  foundIndex: Integer;

begin
  // Ввод массива из 10 целых чисел
  writeln('Введите массив из 10 целых чисел:');
  for i := 1 to arraySize do
  begin
    write('Элемент ', i, ': ');
    readln(numbers[i]);
  end;

  // Ввод числа K
  write('Введите целое число K: ');
  readln(K);

  // Поиск элемента массива, равного K
  foundIndex := 0;
  for i := 1 to arraySize do
  begin
    if numbers[i] = K then
    begin
      foundIndex := i;
      break;
    end;
  end;

  // Вывод результата
  if foundIndex > 0 then
    writeln('Номер элемента массива, равного K: ', foundIndex)
  else
    writeln('В массиве нет числа, равного K.');

  // Задержка экрана перед закрытием
  writeln('Нажмите Enter для завершения...');
  readln;
end.

Эта программа сначала вводит массив из 10 целых чисел, затем вводит число К и проверяет, есть ли в массиве элемент, равный К. Если такой элемент найден, программа выводит его номер, а если не найден, выводит "0".