Question

Запишите полный текст программы и выполните её на компьютере. (программа Паскаль) i : =0; repeat i : =i+1; until (a [ i ] =x) or (i =n); if a [ i ] =x then write ( i ) else write ( ' нет ' )

Answer 1

Первая программа:

program n1;

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

i,k:integer;

begin

for i:=1 to 10 do a[i]:=random(100);

K:=0;

For i:=1 to 10 doIf a [i]> 50 then k:=k+1;

Write ('k=', k);

end.

Вторая программа:

program n1;

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

i,s:integer;

begin

for i:=1 to 10 do a[i]:=random(100);

s:=0;

for i:=1 to 10 doif (a [i]>50) and (a [i]<60) then s:=s+a [i];

write ('s=', s);

end.

Answer 2

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

Вот полный текст программы на Паскале:

pascalCopy code
program SearchElement;
var
  a: array[1..100] of integer; // Массив элементов
  x: integer; // Элемент, который мы ищем
  n: integer; // Размер массива
  i: integer; // Индекс элемента
begin
  // Вводим размер массива
  writeln('Введите размер массива:');
  readln(n);

  // Вводим элементы массива
  writeln('Введите элементы массива:');
  for i := 1 to n do
  begin
    readln(a[i]);
  end;

  // Вводим элемент, который мы ищем
  writeln('Введите элемент, который вы ищете:');
  readln(x);

  // Ищем элемент в массиве
  i := 0;
  repeat
    i := i + 1;
  until (a[i] = x) or (i = n);

  // Выводим результат
  if a[i] = x then
    writeln('Элемент ', x, ' найден в позиции ', i)
  else
    writeln('Элемент не найден');
end.

Вы можете скопировать этот код в среду разработки Pascal (например, Lazarus или Free Pascal IDE) и выполнить его на своем компьютере для поиска элемента в массиве.