Ответы на вопрос:
var a: array [1..10] of real;
i: integer;
begin
for i := 1 to 10 do
begin
write('Введите ', i, ' элемент массива: ');
readln(a[i]);
end;
writeln('С клавиатуры: ', a);
for i := 1 to 10 do
begin
a[i] := random(-5,5);
end;
writeln('Случайными числами: ', a);
for i := 1 to 10 do
begin
a[i] := i + sin(i);
end;
writeln('По формуле: ', a);
end.
Популярно: Информатика
-
patokina02102.07.2022 07:15
-
аолесдвда11.09.2021 01:51
-
Aly600003.06.2023 11:24
-
Nastya2008150504.10.2020 17:27
-
LeraReka27.10.2020 10:05
-
Yyyyyyshdvjfc18.06.2021 20:32
-
fox02713foxsi27.06.2021 19:12
-
bongtangirl13.10.2021 11:47
-
yuliam201516.07.2021 04:47
-
OksaNatop0424.03.2021 01:41