1-ая Program one; Var n, i : integer; a : array [1..1010] of integer; Begin read(n);
for i := 1 to n do begin read(a[i]); end; for i := 1 to n do begin write(a[i], ' '); end; writeln(); for i := n downto 1 do begin write(a[i], ' '); end; End. 2-ая Program two; Var n, i, k: integer; a : array [1..1010] of integer; Begin read(n); k := 1; while (n > 0) do begin a[k] := n mod 10; k := k + 1; n := n div 10; end; for i := k - 1 downto 1 do write (a[i], ' '); End. 3-я Program two; Var k, start, endd, i: integer; a : array [1..1010] of integer; Begin read (start, endd); k := 1; for i := start to endd do begin if (i mod 2 = 0) then begin a[k] := i; k := k + 1; end; end;
1) var a: array [1..10] of integer; i, m: integer; begin for i := 1 to 10 do begin a[i] := random(20); writeln('[', i, '] => ', a[i]); if (a[i] mod 2 = 0) then m := m + a[i]; end; writeln(m); end.
2) var a: array [1..10] of integer; i, m: integer; begin m := 1; for i := 1 to 10 do begin a[i] := random(20); writeln('[', i, '] => ', a[i]); if (a[i] mod 2 = 1) then m := m * a[i]; end; writeln(m); end.
3) var a: array [1..10] of integer; i, m: integer; begin m := 1; for i := 1 to 10 do begin a[i] := random(20); writeln('[', i, '] => ', a[i]); m := m + a[i]; end; writeln(m / 10); end.
4) var a: array [1..10] of integer; i, m, c: integer; begin m := 1; for i := 1 to 10 do begin a[i] := random(20); writeln('[', i, '] => ', a[i]); if (a[i] mod 2 = 0) then begin m := m + a[i]; c := c + 1; end; end; if (c > 0) then writeln(m / c); end.
Program one;
Var
n, i : integer;
a : array [1..1010] of integer;
Begin
read(n);
for i := 1 to n do
begin
read(a[i]);
end;
for i := 1 to n do
begin
write(a[i], ' ');
end;
writeln();
for i := n downto 1 do
begin
write(a[i], ' ');
end;
End.
2-ая
Program two;
Var
n, i, k: integer;
a : array [1..1010] of integer;
Begin
read(n);
k := 1;
while (n > 0) do
begin
a[k] := n mod 10;
k := k + 1;
n := n div 10;
end;
for i := k - 1 downto 1 do
write (a[i], ' ');
End.
3-я
Program two;
Var
k, start, endd, i: integer;
a : array [1..1010] of integer;
Begin
read (start, endd);
k := 1;
for i := start to endd do
begin
if (i mod 2 = 0) then
begin
a[k] := i;
k := k + 1;
end;
end;
for i := k - 1 downto 1 do
write (a[i], ' ');
End.