Question

Помогите пожалуйста, на паскале

Answer 1

VAR
a:array [1..10] of integer;
i,x:integer;
begin
writeln('Введите x=');readln(x);
a[1]:=x;
for i:= 1to 10 do
a[i]:= a[i-1] + 1;
for i:=1 to 10 do
writeln (a[i]);
end.
Задача 2
1. VAR
2. a:array [1..10] of integer;
3. i,x:integer;
4. begin
5. writeln('Введите x=');readln(x);
6. a[1]:=x;
7. for i:= 1to 10 do
8. a[i]:= a[i-1] + 1;
9. for i:=1 to 10 do
10. writeln (a[11-i]);
11. end
Задача 4
1.
2. VAR
3. a:array [1..10] of integer;
4. i:integer;
5. begin
6. for i:= 1 to 10 do
7. a[i]:= random (100,300);
8. for i:=1 to 10 do
9. writeln (a[i]);
10. end.

Answer 2

program Prog;

var

i, x: Integer;

arr: array[1..10] of Integer;  

begin

write('Введите x: ');

read(x);

for i := 1 to 10 do begin

 arr[i]:=x;

 x+=1;

end;

for i := 1 to 10 do begin

 write(arr[i], ' ');

end;

writeln;

write('Введите x: ');

read(x);

for i := 10 downto 1 do begin

 arr[i]:=x;

 x-=1;

end;

for i := 1 to 10 do begin

 write(arr[i], ' ');

end;

writeln;

x:=2;

for i := 1 to 10 do begin

 arr[i]:=x;

 x*=2;

end;

for i := 1 to 10 do begin

 write(arr[i], ' ');

end;

writeln;

randomize;

for i := 1 to 10 do begin

 arr[i]:=random(200)+100;

end;

for i := 1 to 10 do begin

 write(arr[i], ' ');

end;

end.