Question

паскаль с тремя циклами. Ввести с клавиатуры 10 чисел. Если среди них есть числа, большие 35, заменить их на 0. Напечатать все полученные числа.

Answer 1

Var a: array[1..10] of real;
    i: integer;
begin
  for i:=1 to 10 do
  begin
    write('число ',i,' ');  readln(a[i]);
  end;
{ первый цикл }
  for i:=1 to 10 do
  if a[i]>35 then a[i]:=0;
{ второй цикл 
  i:=1;
  while i<=10 do
  begin
    if a[i]>35 then a[i]:=0;
    i:=i+1;
  end;  }
{ третий цикл
  i:=1;
  repeat
    if a[i]>35 then a[i]:=0;
    i:=i+1;
  until i>10;  }  
{ печать }
  for i:=1 to 10 do write(a[i],' ');  
end.    

Answer 2

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

pascalCopy code
program ReplaceNumbers;

var
  numbers: array[1..10] of Integer;
  i: Integer;

begin
  writeln('Введите 10 чисел:');
  for i := 1 to 10 do
  begin
    readln(numbers[i]);
  end;

  writeln('Полученные числа:');
  for i := 1 to 10 do
  begin
    if numbers[i] > 35 then
      numbers[i] := 0;
    writeln(numbers[i]);
  end;
end.

Эта программа создает массив numbers из 10 целых чисел и запрашивает у пользователя ввод 10 чисел. Затем она проходит по массиву и, если число больше 35, заменяет его на 0. Наконец, программа выводит полученные числа на экран.

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