помогите пж выполнить все задания
Ответы
Ответ: Вот программный код
Объяснение:
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils;
const
n:integer=10;
k:integer=15;
var
IntArr:array[1..10] of integer;
i:integer;
DoubleArr:array[1..15] of double;
begin
// Ввод массива
for i := 1 to n do
begin
Writeln('Введите ',i,'-ый член массива');
Readln(IntArr[i]);
end;
// Вывод 1)
for i := n downto 1 do
begin
Write(IntArr[i],' ');
end;
Writeln;
// Вывод 2)
for i := n downto 1 do
begin
Writeln(IntArr[i]);
end;
Writeln;
// Вывод 3)
for i := 3 to 8 do
begin
Write(IntArr[i],', ');
end;
Writeln;
// Вывод 4)
for i := 1 to 5 do
begin
Write(IntArr[i]:5);
end;
Writeln;
// Вывод 5)
for i := 1 to 5 do
begin
Write(IntArr[i],' ');
end;
writeln;
for i := 6 to n do
begin
Write(IntArr[i],' ');
end;
Readln;
// Начало второго задания
// Ввод массива
for i := 1 to k do
begin
Writeln('Введите ',i,'-ый член массива');
Readln(DoubleArr[i]);
end;
// Вывод 1
for i := 10 to k do
begin
Writeln(DoubleArr[i]:4:2);
end;
Writeln;
// Вывод 2
for i := 1 to 5 do
begin
Writeln(DoubleArr[i]:4:3,' ');
end;
Writeln;
for i := 5 to 10 do
begin
Writeln(DoubleArr[i]:4:3,' ');
end;
Writeln;
for i := 10 to k do
begin
Writeln(DoubleArr[i]:4:3,' ');
end;
Writeln;
end.