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

Предыдущий
вопрос Следующий
вопрос

Sure! Here is the Pascal code for the tasks you provided:

1) Task: Create an array of size 10, fill it with integers entered from the keyboard, and display it on the screen.

program Task1;
var
arr: array[1..10] of integer;
i: integer;
begin
for i := 1 to 10 do
begin
write('Enter element ', i, ': ');
readln(arr[i]);
end;
writeln('Array elements:');
for i := 1 to 10 do
begin
write(arr[i], ' ');
end;
end.

2) Task: Create an array of real numbers of size n, fill it from the keyboard, and display it on the screen.

program Task2;
var
arr: array of real;
n, i: integer;
begin
write('Enter the size of the array: ');
readln(n);
SetLength(arr, n);
for i := 0 to n - 1 do
begin
write('Enter element ', i + 1, ': ');
readln(arr[i]);
end;
writeln('Array elements:');
for i := 0 to n - 1 do
begin
write(arr[i], ' ');
end;
end.

3) Task: Fill an array with real numbers in the range from 0 to 1 and display it on the screen.

program Task3;
var
arr: array[1..10] of real;
i: integer;
begin
for i := 1 to 10 do
begin
arr[i] := Random;
end;
writeln('Array elements between 0 and 1:');
for i := 1 to 10 do
begin
write(arr[i]:0:2, ' ');
end;
end.

You can compile and run each of these programs to achieve the desired tasks. Feel free to ask if you have any questions or need further clarification!