Question

Всё надо делать в паскале 1)Дан массив размерностью 10. Заполните массив целыми числами с клавиатуры через пробел и выведите его на экран. 2)Дан массив действительный чисел размерность n. Заполните массив с клавиатуры используя запрос каждого элемента массива. Вывести готовый массив на экран. 3)Заполните массив вещественными числами использую диапозон от 0 до 1 и выведите го на экран.

Answer 1

1)
const
n=10;
var
a:array[1..n]of integer;
i:integer;
begin
    for i:=1 to n do
         read(a[i]);
writeln;
   for i:=1 to n do
         write(a[i]:4);
end.

2)
var
a:array[1..1000]of real;
i,n:integer;
begin
 writeln('n ?');
 readln(n);
    for i:=1 to n do
       begin
         writeln('INPUT ',i,' элемент');
         readln(a[i]);
       end;
writeln;
   for i:=1 to n do
         write(a[i]:4:2);
end.
3)
var
a:array[1..1000]of real;
i,n:integer;
begin
 writeln('n ?');
 readln(n);
    for i:=1 to n do
       begin
         a[i]:=random;
          write(a[i]:4:2);
       end;
writeln;
end.

Answer 2

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

1. Заполнение массива целыми числами с клавиатуры и вывод на экран:

pascalCopy code
program FillIntegerArray;
var
  arr: array[1..10] of integer;
  i: integer;
begin
  writeln('Введите 10 целых чисел через пробел:');
  for i := 1 to 10 do
    read(arr[i]);
  
  writeln('Введенный массив:');
  for i := 1 to 10 do
    write(arr[i], ' ');
  
  readln;
end.

2. Заполнение массива действительными числами с клавиатуры и вывод на экран:

pascalCopy code
program FillRealArray;
var
  n, i: integer;
  arr: array of real;
begin
  writeln('Введите размерность массива:');
  readln(n);
  
  SetLength(arr, n);
  
  writeln('Введите элементы массива:');
  for i := 0 to n - 1 do
    read(arr[i]);
  
  writeln('Готовый массив:');
  for i := 0 to n - 1 do
    write(arr[i], ' ');
  
  readln;
end.

3. Заполнение массива вещественными числами в диапазоне от 0 до 1 и вывод на экран:

pascalCopy code
program FillRealArrayInRange;
var
  n, i: integer;
  arr: array of real;
begin
  writeln('Введите размерность массива:');
  readln(n);
  
  SetLength(arr, n);
  
  for i := 0 to n - 1 do
    arr[i] := random;
  
  writeln('Готовый массив:');
  for i := 0 to n - 1 do
    write(arr[i]:0:2, ' '); // Вывод с округлением до двух знаков после запятой
  
  readln;
end.

Эти программы позволят вам заполнять массивы и выводить их содержимое на экран согласно вашим требованиям.